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IntroducMon 



Purpose of this Publication 

This publication is designed to be used by program- 
mers in conjunction with the publication, IBM General 
Information Manual, COBOL, Form F28-8053. This 
publication contains additional specifications required 
to write cobol programs to be processed under the 
1410/7010 Operating System. 

COBOL Source Programs 

The similarity between cobol and ordinary business 
English facilitates writing cobol source programs. 
Source program statements are translated directly into 
machine language by the cobol compiler, which takes 
full advantage of the capabilities of the ibm 1410 and 
7010 Data Processing Systems. 

Prerequisite and Related Information 

A basic knowledge of both cobol and the ibm 1410/7010 
Operating System is required to fully understand the 
information presented in this publication. 

Anyone without this prior Iknowledge is requested to 
read the following publications: 

IBM General Information Manual, COBOL, Form 
F28-8053 

IBM 1410/7010 Operating System; Basic Concepts, 
Form C28-0318 

IBM 1410 Principles of Operation, Form A22-0526 or 
IBM 7010 Principles of Operation, Form A22-6726 

The reader should also be familiar with the contents 
of the publication IBM 1410/7010 Operating System; 
System Monitor, Form C28-0319. The following 1410/ 
7010 Operating System publications, along with 
System Monitor, should be available for reference pur- 
poses: System Generation, Form C28-0352; Basic 
Input/Output Control System, Form C28-0322; and 
Operators Guide, Form C28-0351. 

Machine Requirements 

The minimum machine requirements for compiling 
programs using the cobol compiler are included in the 
publication. System Generation, Form C28-0352. How- 
ever, machine requirements for running a particular 
object program depend upon the requirements of the 
program (for example, the amount of core storage 
needed ) . 



COBOL Language Forms and Notations 

This publication contains all the basic forms of the 
various verbs, clauses, entries, and other essential ele- 
ments of the 1410/7010 cobol language. They are 
intended to guide the programmer in writing his own 
statements. If statements are written in formats other 
than those presented in this manual, the compilation 
will result in error. 

The following rules of notation have been followed 
in the presentation of these forms : 

1. All words printed entirely in capital letters are 
COBOL words; i.e., words that have preassigned mean- 
ings in the cobol language. 

2. All underlined words are required unless the por- 
tion of the format containing them is itself optional; 
i.e., enclosed in square brackets. These are key words 
and if any such word is missing or is incorrectly 
spelled, it is an error in the program. 

3. All COBOL words not underlined may be included 
or omitted at the option of the programmer. These 
words are used only for the sake of readability. Mis- 
spelling, however, constitutes an error. 

4. All italicized words represent information that 
must be supplied by the programmer. The nature of 
the information required is indicated in each case. In 
most instances, the programmer will be required to 
provide an appropriate data-name, procedure-name, 
literal, etc. 

5. Material enclosed in square brackets [ ] may be 
used or omitted as required by the programmer. 

6. When material is enclosed in braces { }, only one 
of the enclosed items is required; the others are to be 
omitted. The choice is to be made by the programmer. 

7. Punctuation, where shown, is essential. Other 
punctuation may be inserted by the programmer in 
accordance with the rules specified in the General 
Information Manual. 

8. In certain cases, a succession of operands or 
other elements may be used in the same statement. 
This possibility is indicated by the use of three dots 
following the item affected. The dots apply to the last 
complete element preceding them; thus, if a group of 
operands and key words are enclosed within brackets, 
and three dots precede the closing bracket, the entire 
group must be repeated if any repetition is required, 
not merely the last operand. 
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Identification Division 



The information specified in the Identification Divi- 
sion of the source program allows the programmer to 
identify or label his program, and provide other per- 
tinent information concerning the program. This divi- 
sion must precede the other divisions when the source 
program is presented to the compiler. The over-all 
structure of the Identification Division is: 

IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 

AUTHOR, author-name. 



INSTALLATION, any sentence or group of sentences. 



DATE-WRITTEN, any sentence or group of sentences. 



DATE-COMPILED, any sentence or group of sentences. 



SECURITY, any sentence or group of sentences. 



REMARKS, any sentence or group of sentences. 



Usage of the ident* portion of the program-id source 
statement is explained in the section, "1410/7010 
COBOL Compiler Requirements." 

For additional details concerning the Identification 
Division, see the General Information Manual. 

Note: Special characters, such as the hyphen (-), 
preceded and followed by blanks, may not be used in 
the Identification Division. 



♦Columns 73-80 of the COBOL Program Sheet (Reference 
Format ) 



Environment Division 



In the Environment Division of the cobol source pro- 
gram the programmer describes to the compiler the 
physical characteristics of the ibm 1410 or 7010 System 
that will be used to compile the source program, and 
the system that will be used to execute the object pro- 
gram. This division must immediately follow the 
Identification Division when the source program is 
submitted to the compiler. 

Structure of the Environment Division 

The over-all structure of the Environment Division for 

a source program is given below: 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
SPECIAL-NAMES. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-O-CONTROL. 

Each of the subdivisions of the Environment Divi- 
sion is discussed in the following pages. This discussion 
is in terms of the ibm 1410/7010 cobol compiler, and 
therefore includes specifications not contained in the 
General Information Manual. 



Configuration Section 

The three paragraphs of the Configuration Section 
specify, respectively, the computer on which the cobol 
compiler is to be run, the computer on which the object 
program is to be run, and the names of the machine 
devices and switch conditions referred to by the pro- 
grammer in the Procedure Division of his source 
program. 

SOURCE-COMPUTiR Paragraph 

The purpose of this paragraph is to specify the com- 
puter on which the cobol compiler is to run to com- 
pile the source program. The general form of this 
paragaph for the 1410/7010 cobol compiler is: 

nBM-1410) 
SOURCE-COMPUTER. ' ' 



IBM-7010 ) ' 

Additional information regarding the source com- 
puter ( e.g., actual core-storage size, core storage avail- 
able, etc, ) is contained in the Resident Monitor's Com- 
munication Region; therefore, no additional entries are 
needed or permitted in this paragraph. (See System 
Monitor.) 



OBJECT-COMPUTER Paragraph 

The purpose of this paragraph is to specify the com- 
puter on which the object program is to be executed. 
The general form of this paragraph is : 

/IBM-1410\ 



OBJECT-COMPUTER. 



|IBM-7010J 



SPECIAL-NAMES Paragraph 

This optional paragraph equates mnemonic-names 
with device-names representing certain system units 
or the console printer, and equates condition-names 
with the status of the system's Standard Input Unit 
end-of-file switch and/or a switch in the Resident 
Monitor's Communication Region. The general form 
of this paragraph is: 

SPECIAL-NAMES. device-name-1 IS mnemonic-name-1 



[ 



device-name-2 IS mnemonic-name-2 • • • 



MONITOR-SWITCH 



[ 



■■]] 



[literal-1 STATUS IS condition-name-l 1 

r literal-2 STATUS IS condUion-name-2 

I-O- SWITCH EOF-SIU 

Ton STATUS is condition-name-3^ 

foFF STATUS IS condition-name-4~\ . 
DEVICE-NAMES 

The device-names of the special-names paragraph 
must be chosen from the following list: 

DEVICE-NAME DESCRIPTION 

CONSOLE-PRINTER the console printer 

SYSTEM-OUTPUT-PUNCH the Standard Punch Unit 
SYSTEM-OUTPUT-PRINTER the Standard Print Unit 

System units are discussed in the publication, Sys- 
tem Monitor. 

monitor-switch 

The monitor-switch is used to represent a single- 
character switch position within the Resident Moni- 
tor's Communication Region; the switch is set by the 
Operator via a $3x console inquiry. The user can in the 
Procedure Division refer to this switch by means of a 
condition-name associated with the status of the switch. 
Literal-1 can be any valid, single-character, non- 
numeric literal. 



Environment Division 



After entering the $3x console inquiry, the operator 
must also enter $50 to cause the system to exit from 
the Monitor-Switch Wait-Loop routine. 

Figure 1 illustrates the use of the monitor-switch. 

SET MONITOR-SWITCH $3X TO A, B, OR C FOR TYPE OF INPUT 

is the message that will be issued on the console. The 
operator responds by entering $3A, $3B, or $3C fol- 
lowed by $50. Complete details on the $3x message, 
and procedures for entering console inquiries, can be 
found in the System Monitor and Operators Guide 
publications. 

I-O-SWITCH EOF-SIU 

The i-o-swiTCH EOF-SIU is a programmed switch that 
indicates the end-of-file status of the Standard Input 
Unit. This switch can be referred to in the Procedure 
Division by means of a condition-name associated 
with the ON or off status of this switch. 

Figure 2 illustrates a sample special-names para- 
graph. 

Input-Output Section 

The Input-Output Section of the Environment Divi- 
sion consists of the file-control paragraph and the 
i-o-coNTROL paragraph. 

FILE-CONTROL Paragraph 

This paragraph is used to name each file of the source 
program, identify its medium (i.e., magnetic tape or 
unit-record equipment) and assign each file to a sym- 



bolic unit. Methods of assigning files to magnetic tape 
and unit-record devices are discussed in that order. 



tape files 



The form of the file-control paragraph for files as- 
signed to tape is: 
FILE-CONTROL. SELECT file-name-1 



RENAMING file-name 
ASSIGN TO device-name 



■'] 



AREA[S] 



RESERVE < ^"t^^r-1 I ALTERNATE 

SELECT . ... 

SELECT Clause: Each file to be processed by the 
object program must be named in a select clause. 
Each file-name must be unique within the source pro- 
gram, and each file must be described by a File 
Description entry in the Data Division. 

RENAMING Option: The renaming option allows 
the programmer to use the File Description of file- 
name-2 in the Data Division for file-name-1. This 
option enables two files to share the same File Descrip- 
tion; it does not allow the two names to be used inter- 
changeably in the program. 

Note: The files should be selected in the file- 
control paragraph in the same relative order as they 
are described in the file section. Select file-name-2 
must immediately precede select file-name-1, in the 
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Figure 2. Special-Names Paragraph 



FILE-CONTROL paragraph. If both input and output files 
are involved, the output file must be selected last, and 
the input file must have an associated File Description. 
Only one output file may be associated with a given 
RENAMING clause. The number of alternate areas 
reserved for each file must be identical. 

ASSIGN Clause: Each file must be assigned to a 
symbolic unit. The device-name in the assign clause 
must have the following form for files assigned to 
tape units: 

TAPE-UNIT XXX 

TAPE-UNIT is the device name itself and represents 
a symbolic assignment to magnetic tape, "xxx" is the 
name of a symbolic unit (e.g., mrI).* 

RESERVE Option: This option allows the pro- 
grammer to specify alternate input or output areas for 
the implementation of overlap processing. One to five 
alternate areas per file may be specified (integer-1). 
If NO ALTERNATE AREA is Specified or if the reserve op- 
tion is omitted, overlap processing will not take place. 

UNIT-RECORD FILES 

The form of the pile-control paragraph for files as- 
signed to unit-record equipment is: 

FILE-CONTROL . SELECT file-name-1 



RENAMING file-name- 



■■] 



ASSIGN TO device-name 



r 



RESERVE I *"*^^^''-^ i ALTERNATE AREA[S] 1 . 



SELECT 



1 



The select clause, the renaming option, and the 
reserve option are used as described for tape files. The 
device-name of the assign clause must be chosen from 
the follovdng list: 



DEVICE-NAME 

CARD-READER xxx 



DESCRIPTION 

is the standard device-name for 
the card reader of the 1402 Card 
Read Punch, or the 1442 Card 
Reader, "xxx" is the name of a 
symboHc unit (e.g., MRl).* 



CARD-PUNCH xxx is the standard device-name for 

the card pimch of the 1402 Card 
Read Punch, "xxx" is the name 
of a symboHc unit (e.g., MR2).* 

PRINTER xxx is the standard device-name for 

the 1403 Printer with 132 print 
positions, "xxx" is the name of a 
symboHc imit (e.g., MR3).* 

Note: The above device-names cannot be used for 
units assigned as the Standard Input Unit, Standard 
Punch Unit, and Standard Print Unit for the Operating 
System. 

Figure 3 illustrates a sample file-control para- 
graph. 
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Figure 3. File-Control Paragraph 

l-O-CONTROL Paragraph 

The optional i-o-control paragraph allows the pro- 
grammer to specify padding of short-length blocks of 
blocked, fixed-length output records; to control re- 
winding of tape files; and to establish rerun points. 



"The COBOL programmer may reference symbolic units as either 
xxx or /xxx/. For details concerning symbolic units see the 
publication, System Monitor. 
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The form of this paragraph is: 

I-Q-CONTROL . APPLY literal-1 PADDING ON file-name 






APPLY OPEN-WITHOUT-REWIND ON file-name-2 

APPLY 

rerun every beginning of reel of 
(all files 



APPLY... 

] 
1 



\ file-name- 1 [file-name-2 . . .] 



APPLY Option 1: 



APPLY literal-1 PADDING ON file-name 

This option is used to specify padding of short- 
length blocks of a fixed-length, blocked tape-output 
file. Literal-1 can be any valid, single-character, alpha- 
numeric literal except 4=, ^, °,'b, *, VT-Hf^ and'->r^. If 
this APPLY option is not specified, the compiler pro- 
vides padding with spaces where required. 

Spaces or nines should be used for padding char- 
acters if the file is to be sorted using the 1410/7010 
Generalized Tape Sorting Program, 



Note: The degree sign ( 
printing chains. 



appears only on special 



APPLY Option 2: 

APPLY OPEN-WITHOUT-REWIND ON file-name 

This option of the apply clause can be used to facili- 
tate the processing of multi-file tape reels. This option 



only applies to the first reel in which the file is con- 
tained; subsequent reels will be rewound. 

Note: Both apply options can be used for a given 
file. 

RERUN Option: This option allows the programmer 
to specify rerun points (checkpoints) at every begin- 
ning of reel of all files, or of selected files. The tape 
upon which the rerun records are recorded is the 
optional Core Image file. 

If the RERUN clause or Option 2 of the use verb is 
used: (1) an mdm file and iokdf label option D for 
both 80- and 120-character labels must be included 
at System Generation, and ( 2 ) the file associated with 
the RERUN clause or Option 2 of the use verb must be 
a labeled file. Failure to include these items at System 
Generation may cause the system symbols /lra/ and 
/lrg/ to remain undefined when the cobol object pro- 
gram is loaded by the Linkage Loader. ( System sym- 
bols /lra/ and /lrg/ are explained under the label 
routines description in the publication IBM 1410/7010 
Operating System; Resident and Transitional Monitors, 
Input/Output Control System— Programming Systems 
Analysis Guide, Form C28-0396.) 

If neither the rerun clause nor Option 2 of the use 
verb is used, the undefined system symbols /lra/ and 
/lrg/ will not affect the execution of the object pro- 
gram. 

Information concerning checkpoints is contained in 
the publication, IBM 1410/7010 Operating System; 
Basic Input/Output Control System, Form C28-0322. 
Information concerning restarting a program from a 
checkpoint is contained in the publication, IBM 1410/ 
7010 Operating System; Operators Guide, Form 
C28-0351. 
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Data Division 



The Data Division of a cobol source program defines 
the nature and characteristics of the data to be proc- 
essed by the object program. It begins with the header 
DATA DIVISION. Each of the three sections of the Data 
Division also begins with a header, and is followed by 
the word section as shown below: 

DATA DIVISION. 

FILE se:ction. 

File Description Entries 

Record Description Entries 
WORKING-STORAGE SECTION. 

Record Description Entries 
CONSTANT SECTION. 

Record Description Entries 

The File Section describes the input/output files 
with respect to content and organization. It has two 
types of entries: the File Description entry, which 
specifies the physical characteristics and organization 
of a file; and the Record Description entry, which de- 
scribes the individual items contained in the data 
records of the file. 

The Working-Storage Section describes the areas of 
core storage where intermediate results and other 
items are stored temporarily at object-program execu- 
tion time. 

The Constant Section describes fixed items of data 
which remain unchanged during the running of the 
object program. 

Any section not required in the program being writ- 
ten should be omitted. 



IBM 1410/7010 Files and Records 

The programmer should understand how files and 
records are handled by the ibm 1410/7010 Operating 
System in order to use the cobol language effectively 
in writing the Data Division entries for his source 
program. Information concerning files and records is 
therefore given below, prior to discussion of the cobol 
language specifications for the Data Division. 

Recording Modes 

Information in a data processing system may be re- 
corded in various forms and modes. The following 
discussion pertains to the file-recording modes of the 
IBM 1410 and 7010 Data Processing Systems. For ad- 
ditional details, see the publication, IBM 1410 Princi- 



ples of Operation, Form A22-0526 or IBM 7010 Prin- 
ciples of Operation, Form A22-6726. 



EVEN AND ODD PARITY MODES 

The IBM 1410 and 7010 can record information on mag- 
netic tape and read information from magnetic tape 
in either even-parity mode or odd-parity mode. 

LOAD AND MOVE MODES 

Another 1410/7010 file recording mode specifies how 
word marks and word separator characters are re- 
corded during read and write operations. 

Load Mode: The handling of word marks and word 
separator characters in the Load mode depends on the 
type of operation, as follows : 

During write operations, each word mark is trans- 
lated into a word separator character that immediately 
precedes the character with which the word mark was 
associated in core storage. Each word separator char- 
acter in storage is translated into two word separator 
characters on tape. 

During read operations, word marks already in the 
input area are cleared. Each word separator character 
on tape is translated into a word mark associated with 
the character it immediately preceded on tape, and 
pairs of word separator characters on tape are trans- 
lated into single word separator characters without 
word marks in core storage. 

Move Mode: When information is written in the 
Move mode, word marks have no effect on the data 
that is recorded on output media. Word marks in 
storage are undisturbed when information is read in 
this mode. Each word separator character is read into 
core storage and written out of core storage as a word 
separator character. 

Standard Tape Labels 

If STANDARD labels are specified in the File Description 
entry, certain items within the label are automati- 
cally processed by the cobol compiler. The remaining 
items may be used by the programmer by using the 
beginning-label and/or the ending-label options of 
the LABEL records clause in the File Description entry. 
For details concerning the form of the standard 
tape labels, see the publication, IBM 1410/7010 Oper- 
ating System; Basic Input/Output Control System, 
Form C28-0322. 
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Record Formats for Tape Files 

The data record formats that can be handled by the 
1410/7010 COBOL compiler for files assigned to tape 
are: 

1. Fixed-length, unblocked records with or without 
terminal record marks ( Figure 4 ) . 

2. Variable-length, unblocked records with ter- 
minal record marks and without length checking ( Fig- 
ure 5 ) . 

3. Fixed-length, blocked records with terminal rec- 
ord marks ( Figure 6 ) . 

4. Variable-length, unblocked records containing a 
Record Character-Count field and with or without 
terminal record marks ( Figure 7 ) . 

The Record Character-Count field is a four-position 
field at the beginning of each record. It contains 
a count of the total number of characters in that record, 
including itself and the terminal record mark, if 
present. 

5. Variable-length, blocked records with a Block 
Character-Count field and containing Record Char- 
acter-Count fields. Terminal record marks are required 
(Figures). 

A four-character Block Character-Count (bcc) field 
at the beginning of each block contains a count of the 



total number of characters in the block (including the 
four-character Block Character-Count field itself). 

This count is used to check and correct wrong-length- 
record conditions. The bcc field must have ab zone bits 
( 12-punch ) over the units position. 

This field is not a part of a record and therefore is 
not defined in a Record Description entry. 

A Record Character-Count (rcc) field of one to four 
characters in each record contains a count of the total 
number of characters in that record, including itself 
and the terminal record mark. This field must be in 
the same relative position in each record ( the number 
of characters in each "CI" in Figure 8 is the same), 
and must be the same length in each record of a given 
file. The "C2" fields in Figure 8 are all equal in length. 

Record Formats for Unit-Record Files 

card read punch records 

Records of files assigned to the card reader or card 
punch must be 80 characters in length, unblocked, and 
may or may not have record marks in the 80th char- 
acter position. In addition, these files must be in Move 
mode and even parity. 



Record 1 



Record 2 



Record 3 



Figure 4. Fixed-Length, Unblocked Records 



Record 1 



Record 2 



Record 3 



Figure 5. Variable-Length, Unblocked Records Without Length Checking 




Figure 6. Fixed-Length, Blocked Records 
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Figure 7. Variable-Length, Unblocked Records 
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Figure 8. Variable-Length, Blocked Records 



PRINTER RECORDS 

Records of files assigned to the printer must be 132 
characters, fixed-length, and unblocked. Files assigned 
to the printer must be in Move mode and even parity. 



File Section 

File Description Entry 

A File Description entry must describe each file to be 
processed by the object program. It includes specifi- 
cations for the mode in which the file is recorded, 
record and block size, label record information, and 
the names of the data records that make up the file. 
The form of the File Description entry is: 

FD file-name RECORDING MODE IS 

[block contains »«^.-i{ c,^gg§|,s }] 

RECORD CONTAINS \integer-2 TO 1 

integer-3 CHARACTERS 
[ depending on data-name-ll 



LABEL RE CORD[S] J ^^^ 



/standard [ with integer-4 CHARACTERs1\ 

[ beginning-label 1 
[ ending-label ] 



, OMITTED 



NON-STANDARd [ wITII integer-4 CHARACTERS]! 



[ beginning-label ] 
[ ending-label ] 



I VALUE OF FILE-IDENTIFICATION IS literal-1 

[ RETENTION-PERIOD IS integer-sl 
DATA RECORD[S] i ^"^^ i clata-name-2 [ data-name-3 . . . ] 



Level Indicator: The level indicator fd identifies the 
beginning of the File Description entry and precedes 
the file-name assigned by the programmer ( Figure 9 ) . 



FD . HAST-iEP-FiliL^fi 



-J I I I I I I i_ 



I I I I I I I I I I I I 



I I I I I I I 



Figure 9. FD File-Name 

RECORDING MODE Option: This option specifies 
the mode in which the file is recorded. (See the "Re- 
cording Modes" section of this publication.) If the 
RECOi«)iNG MODE option is Omitted in the source pro- 
gram, the compiler assumes Move mode and even 
parity. 

BLOCK CONTAINS Option: In addition to the de- 
tails specified in the General Information Manual, the 
following information pertains to the block contains 
option. 

If the file-name in the fd entry contains variable- 
length records, this entry must take the form: 

BLOCK CONTAINS integer-1 CHARACTERS 

where integer-1 must be equal to or greater than the 
number of characters contained in the longest block 
of the file. This number includes the four-character 
Block Character-Count (bcc) field (see variable- 
length, blocked records in the section, "Record For- 
mats for Tape Files" ) . 

RECORD CONTAINS Clause: This required clause 
is used to specify the size of a record in teiTns of the 
number of characters it contains and to indicate the 
record form. Integer-2 is used to specify the minimum 
number of characters in the smallest record of the file, 
whereas integer-3 indicates the maximum number of 
characters in the largest record. If all records in the 
file are exactly the same size, only integer-3 should be 
specified. 

The DEPENDING ON data-uamc-l option is required 
only when specifying variable-length records with 
Record Character-Count (rcc) fields. Data-name-1 is 
the name of the rcc field. The contents of this field 
indicate the number of characters in the record. 
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The following examples illustrate the use of the 
BLOCK CONTAINS option and the record contains clause 
to specify each of the five record forms: 

For fixed-length, unblocked records: 

RECORD CONTAINS 80 CHARACTERS 
For variable-length, unblocked records without 
length checking: 

RECORD CONTAINS 100 TO 200 CHARACTERS 

For fixed-length, blocked records: 

BLOCK CONTAINS 5 RECORDS 
RECORD CONTAINS 80 CHARACTERS 

Note: Occasionally a fixed-length, blocked record 
file contains a partially completed block at the end of 
the file. If such a block appears, it will contain two 
types of records: data records and padding records. 
The user must provide for the processing of all padding 
records which appear in this block. The read verb at 
end branch will be taken when an attempt is made to 
read the next block, not when an attempt is made to 
read padding records from a partially completed block. 

For variable-length, unblocked records: 

RECORD CONTAINS 100 TO 200 CHARACTERS DE- 
PENDING ON RCC 

For variable-length, blocked records: 

BLOCK CONTAINS 504 CHARACTERS 
RECORD CONTAINS 30 TO 50 CHARACTERS DE- 
PENDING ON RCC 

When a 01 or a 77 level entry is allocated storage 
by the compiler, an additional storage position con- 
taining a group mark/ word mark is automatically gen- 
erated at the end of the record. The diagnostic "Incom- 
patible Record Size" is supressed if there is only one 
character deviation in record size. This is to allow for 
the possible use of a picture symbol "K" ( group mark/ 
word mark ) which may be defined in the cobol source 
program. 

LABEL RECORD Clause: This clause is required 
in every File Description entry. For unit-record files, 
this clause must specify that label records are omitted. 
If STANDARD labels are specified for tape files, the file 
identification, the reel sequence, and the retention 
period are automatically checked. 

If either standard or non-standard is specified and 
the with integer-4 characters option is desired, in- 
teger-4 must be 80 or 120. This is required in order to 
conform with the 1410 80-character and ibm Standard 
120-Character tape labels. (For details concerning 
these labels see the publication, Basic Input/Output 
Control System.) If this option is not used, the label 
record size is assumed to be 120 characters. 

Note: Actual size of nonstandard labels need not 
be exactly 80 or 120 characters, but may not exceed 
120. 



When a file contains standard tape labels, and no 
processing beyond that supplied by the compiler is 
required, standard must be specified. 

If additional processing of the standard tape label 
is desired, the programmer must specify standard with 
beginning-label and/or ending-label in conjunction 
with the USE verb. If either or both of these options 
are used, a Record Description entry that defines the 
entire label must be provided. 
Example: 



LABEL RECORDS ARE STANDARD BEGINNING-LABEL 
ENDING-LABEL 



01 BEGINNING-LABEL. 

02... 

02... 
01 ENDING-LABEL. 

02... 

02... 

When a file contains nonstandard labels and label 
processing is not desired, non-standard must be spe- 
cified. Use of non-standard without additional options 
will cause the nonstandard labels to be bypassed in 
the object program. 

Special processing of nonstandard labels can be 
accomplished by defining the label format with the 
beginning-label and ending-label options in conjunc- 
tion with the USE verb. No automatic testing takes 
place if NON-STANDARD IS specified. 

VALUE Option: The function of the value option 
in the File Description entry is to specify the contents 
of data items in the label record of the file. The follow- 
ing two forms of the value option are permitted for 
standard tape labels: 

Form 1 . 
VALUE OF FILE-IDENTIFICATION IS literal-1 

This form applies to both input and output files and 

is required if standard tape labels are used. Literal-1 

must be a ten-character non-numeric literal. 

Form 2. 

VALUE OF FILE-IDENTIFICATION IS lUeral-1 
RETENTION-PERIOD IS integer-5 

This form applies to output files and must be sup- 
plied for each output file if standard tape labels 
are used. Integer-5 must be an integer ( up to four digits 
with 120-character labels, and up to three digits with 
80-character labels) indicating the number of days 
beyond the creation date the file is to be preserved. 
For files that are to be preservd indefinitely, the pro- 
grammer inserts the digits "99" in the two high-order 
positions of the creation date (see "Standard Tape 
Labels" ) . 



14 



MA5iTiEgi-iFiliLEi 



I I I I I I I I I I 



_i_j I i I I 



j RiEiCiQiRiDi 1 1N161 MQPiEi iliSi iLiQAJ). .MQ.ng, giV.EiM. 



i RiECiQiRDi iCOiMiriAifiN,Si i«iQ ig,MiAiP,A,Ci-rF,g,.S, 



■j LiAiBiEiL iRiEiCiOiRiBiSi iAiRiEi i.SiT,AiNiT>,A,gDi 



j ViAiLUiE, iQiFi iFiliLiEi-iliDiEiMiT,l,F,l,g,A,Til,CSM, ,i,S, 



. RiFiTiEiMiT/ i QiNi-iPiFiRil^QDi iliS, i3,6,gi 



lDiATiAi iRiEiCiQiRiDiS, lAiR.e, .■ R,EiCiQiRiT?i-iAi R,E,CiO,H.^,- 



I I I I I I I 



J i_J I I I i_ 



J i_j 



PiAiR il i Tiy 



iMiAi ^ iTiER 



iBlu I I I 



i Fi liL 



Figure 10, File Description Entry 

If the appropriate value option is not supplied when 
STANDAiu) labels are specified, a diagnostic message 
will not appear, but the results at execution time will 
be unpredictable. 

DATA RECORD Clause: This clause is required 
in every File Description entry. Data-name-2, data- 
name-3, . . . etc., must each be the subject of a Record 
Description entry that has a level number of 01. The 
data-name order is not significant to the processor. 

The appearance of more than one data-name in this 
clause means that the file contains a corresponding 
number of different types of data records. These 
records may be of different sizes and formats. 

Implicit redefinition caused by multiple records in 
the DATA RECORD clause has the same effect as a 
REDEFINES clausc. Therefore, a move corresponding 
can not be used for either implicit or explicit redefini- 
tion of the receiving field. 

Figure 10 illustrates a sample File Description entry. 

Record Description Entry 

A Record Description entry specifies to the compiler 
the characteristics of each item of a data record. Every 
item given a separate name must be described in a 
separate entry in the same order in which it appears 
in the record. Each Record Description entry consists 
of a level-number, a data-name, and a series of inde- 
pendent clauses. The form of a Record Description is: 

level-number | fJlL^r'' [[rEDEFINES 

[ size . . .1 I CLASS . . .] [usage ... 1 

[ occurs ...] [point...] [signed...] 

[ value . . . ] [ picture . . . ] [ blank when zero ] . 

Level-Number: The level-number shows the relation- 
ship between items in a record. Each level-number 
must be associated with a data-name or with the key 
word filler, as shown in the following general format: 

77 7 ^ data-name ) 
level-number j pjj y p„ t 

A detailed description of level-numbers can be found 
in the General Information Manual. 



...] 



REDEFINES Clause: The general form of the 
redefines clause is: 
level-number data-name-1 [REDEFINES data-name-2'\ 

The size of data-name-1 and data-name-2 should be 
equal. Data-name-2 must not be subscripted. 

There are two types of cobol redefinition: implicit 
and explicit. Implicit redefinition is caused by multiple 
records named in the data records clause. All of these 
records implicitly share the same work area. ExpHcit 
redefinition is caused by the use of the redefines clause 
following a data-name in the Data Division. In this case, 
both the redefining and the redefined data-name share 
the same work area by explicit definition. Incompata- 
ble redefines clauses are flagged at compilation time. 

See the General Information Manual for details con- 
cerning the use of the redefines clause. Additional 
information, pertinent to the use of redefines in pro- 
grams that are to be compiled on systems other than 
the 1410/7010 appears in the "Compatibility Consid- 
erations" section of this manual. 

SIZE Clause: The general form of the size clause 



IS: 



SIZE 



IS integer- 



ii] 



, , fj CHARACTER[S] 
l\ DIGIT[S] 

See the General Information Manual for details 
concerning the use of this clause. 

CLASS Clause: In addition to the details in the Gen- 
eral Information Manual concerning the use of this 
clause, the reader should note that if a class statement 
is omitted for a data-item and the usage clause speci- 
fies computational, numeric class is implied. In the 
absence of any class specification or implication, 
alphanumeric class is assumed. Alphameric class is 
always assumed for a group item. Numeric class items 
must not exceed 18 digits. For report items, the number 
of numeric characters represented must not exceed 18. 

The general form of the class clause is: 
/ ALPHABETIC 

rr A^JQ T- ' NUMERIC 

ULA5& ^^ \ ALPHANUMERIC 1 

'an ). 

USAGE Clause: The usage clause does not in any 

way affect the internal representation of data in the 

IBM 1410/7010 Data Processing Systems. All data is 

represented internally in bcd (binary-coded decimal) 



[ 



jASS c 

=0 
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form and no distinction is made between computa- 
tional and DISPLAY usage. If the usage clause for a 
data-item specifies computational and a class state- 
ment is omitted, the class is assumed to be numeric. 
The general form of the usage clause is; 



USAGE IS j 



COMPUTATIONAL 
DISPLAY 



I] 



OCCURS Clause: The general form of the occurs 
clause is: 

[ occurs integer-2 TIME[S]] 

See the General Information Manual for details con- 
cerning the use of this clause. 

POINT Clause: The general form of the point 
clause is: 

[point location IS j ^§§T [ integer-3 PLACE [S] ] 

See the General Information Manual for details con- 
cerning the use of this clause. 

SIGNED Clause: A numeric data item will have an 
operational sign if this clause is used. An operational 
sign should be specified for the result field of any 
arithmetic statement where the sign is a consideration. 
Additional details concerning the use of the signed 
clause are found in the General Information Manual. 
The general form of this clause is: 

[ signed ] 

VALUE Clause: The general form of the value 
clause is: 

[ value IS literal 1 

In addition to the details specified in the General 
Information Manual, the following information per- 
tains to the use of this clause: 

1. If the value clause specifies a numeric literal 
with a preceding sign, the operational sign is created 
only if the programmer specifies the picture symbol 
"S" or the signed clause. 

2. The value clause can only be used to refer to 
elementary items. 

3. The VALUE clause has no meaning for report items, 
and cannot be used to specify their initial values. 

4. Neither a record mark ( 4= ) nor a group mark (^) 
can be used within the value clause ( see picture sym- 
bols T and "K" ) . 

PICTURE Clause: The general form of the picture 
clause is: 



I PICTURE IS 



any allowable combination of 
characters and symbols 



The picture clause can only be used to describe ele- 
mentary items. It is recommended that, wherever 
possible, the programmer use this clause instead of the 



size, point, class, and blank clauses of a Record De- 
scription entry. The picture clause specifies the char- 
acteristics of an elementary item in a more compact 
form, and can therefore be processed more efficiently. 

Non-computational numeric data-names greater than 
18 digits in length should be declared alphameric. 
This results in more efficient processing at compilation 
time and at object program execution time. 

Non-computational numeric data-names must not 
exceed 99 digits. Data names containing more than 99 
positions must be declared as alphabetic or alphameric, 
or an addressing error will occur. 

In addition to the rules given in the General Infor- 
mation Manual for forming a picture of a data item, 
the following information pertains to the use of the 
picture clause: 

1. The only way to define a record mark or group 
mark is by using a picture symbol. The special picture 
symbol "J" is used to indicate a one-character field 
containing a record mark (H=), and the special picture 
symbol "K" is used to indicate a one-character field 
containing a group mark (^). When used, the picture 
symbol "J" or "K" must be the only character in the 

PICTURE. 

2. The PICTURE symbol "S" is used to indicate an 
operational sign (see the signed clause). 

3. For report items, the maximum number of char- 
acters that can be represented by a picture is 99. 

4. The PICTURE symbol "V" to the right or left of 
PICTURE symbol "P" is redundant and invalid. 

5. PICTURE symbol "Z" may appear to the right of a 
decimal point in a picture only if all numeric character 
positions are represented by "Z"s. The same rule ap- 
plies to the replacement characters "*", "+", and "— ". 

BLANK WHEN ZERO Clause: The general form of 
the BLANK vvTHEN ZERO clausc is: 

[ blank when zero ] 

See the General Information Manual for details con- 
cerning the use of this clause. 

Figure 11 illustrates a sample Record Description 
entry. 



Working-Storage and Constant Sections 

The Record Description entries described for the File 
Section apply also to the Working-Storage and Con- 
stant Sections. These sections begin with the header 
line "working-storage section," or "constant sec- 
tion," and are followed immediately by the Record 
Description entries. 

In addition to the details specified in the General 
Information Manual, the following considerations per- 
tain to the Working-Storage and Constant Sections. 
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Figure 1 1 . Record Description Entry 



If the VALUE clause is not used to define the initial 
values of Working-Storage items, these values will be 
unpredictable. 

Constant Section elementary items must include a 
VALUE clause or one of the picture symbols "J" ^^^ 
"K", unless associated with a redefines clause. 

Tables of constants may be formed using the occurs 
clause and may be referenced by subscripts. The pro- 



cedure for constructing tables of constants is described 
fully in the General Information Manual. 

Added Features of the Data Division 

An optional feature, not specified in the General Infor- 
mation Manual, but contained in the 1410/7010 cobol 
language is: 

The DEPENDING ON option of the record contains 
clause. 
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Procedure Division 



Once the computer and the data have been described, 
the programmer gives the cobol compiler the instruc- 
tions that specify the data processing steps the object 
program is to perform. Information that directs the 
compiler is also supplied by the programmer in the 
Procedure Division, 

The COBOL verbs are the main elements in the Proce- 
dure Division and they are described in detail in the 
General Information Manual. However, for the con- 
venience of the user, the general format of each cobol 
verb is shown in this publication. 

Information not included in the General Information 
Manual, but applicable to verbs which have additional 
meaning when used in a 1410/7010 cobol source pro- 
gram, is supplied in later sections of this manual. 

Compiler Directing Declaratives 

Declaratives are compiler-directing statements that 
operate under the control of the "main body" of the 
Procedure Division or the Input/Output Control Sys- 
tem. Declaratives consist of the use verb and any asso- 
ciated procedures. If present, Declaratives: 

1. must be grouped at the beginning of the Proce- 
dure Division, and 

2. must be preceded by the key word declaratives 
and followed by the key words end declaratives, 
and 

3. must be included in the first phase of a multi- 
phase COBOL program that is to be executed from 
the SOF. 

4. are an isolated part of the program. No reference 
to procedure-names may be made between the 
Declaratives and the remaining part of the Pro- 
cedure Division. 

A section-name in the declarative portion of the 
Procedure Division must be followed by a use state- 
ment, and the use statement must be followed by a 
paragraph-name. A section-name in the nondeclara- 
tive portion of the Procedure Division must be fol- 
lowed by a paragraph-name. 

USE Verb 

The USE verb is used to specify procedures for handling 
input/output errors and label processing (see "label 
record" clause) in addition to the procedures normally 
provided by the cobol compiler. Each occurrence of 
the USE verb constitutes a complete section of the Pro- 
cedure Division, and must therefore be preceded by a 
section-name. The remainder of the section consists of 
one or more paragraphs specifying the procedures to 



be used (Figure 12). A "use" section must follow the 
rules for a section which is "performed" ( see the per- 
form verb in the General Information Manual for de- 
tails). For example, if the logic of a procedure requires 
a conditional exit prior to the final statement, the exit 
verb must be used. The section-name of a use section 
must not be referenced by an alter, go to, or perform 
statement since the use entry is appended to this sec- 
tion header. The paragraph-name of the last paragraph 
in a use section must not be referenced by an alter or 
perform statement since the use exit is appended to 
this paragraph. 
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• Figure 12. Declaratives 

The following options of the use verb are available. 
Option 1 

section-name SECTION . USE AFTER STANDARD ERROR 
PROCEDURE ON file-name-l [file-name-2 . . .] 
paragraph-name, (any COBOL statements including DISPLAY 
using the console printer but excluding all other input/output 
statements) 

This option allows the programmer to specify addi- 
tional procedures if standard error-correction proce- 
dures do not suffice. Standard error procedures attempt 
to correct the error in accordance with 1410/7010 iocs 
standards. If the error persists, the error condition is 
ignored and processing continues. Thus, the pro- 
grammer has the following options: ignore the error 
condition and process the record, or by means of the 
use verb perform special processing for error records 
(e.g., set a switch, display a console message, etc.). 
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Option 2 
section-name SECTION . USE j aFTER^ [ STANDARD 



[] 



BEGINNING M rj REEL M 



ENDING 



LABEL PROCEDURE ON file-name. 

paragraph-name, (any COBOL statements including DISPLAY 
using the console printer but excluding all other input /output 
statements) 

This option is used to: 

1. Perform processing of standard tape labels be- 
yond that supplied by the cobol compiler. 

2. Perform any desired processing of nonstandard 
labels. 

If both BEGINNING and ending are omitted, the desig- 
nated procedures will be executed for both beginning 
(header) and ending (trailer) labels. 

If both REEL and file are omitted, the designated 
procedures will be executed upon detection of both 
end-of-reel and end-of-file conditions. 

Eight label exits per fd are provided by the cobol. 
compiler : 

Input Tapes 

Label Option Exit 

BEGINNING BEFORE B 



BEGINNING 


AFTER 


C 


ENDING 


BEFORE 


E 


ENDING 


AFTER 


F 


Output Tapes 






Label 


Option 


Exit 


BEGINNING 


BEFORE 


K 


BEGINNING 


AFTER 


l 


ENDING 


BEFORE 


P 


ENDING 


AFTER 


Q 



For further information, see IBM 1410/7010 Operat- 
ing System; Basic Input/Output Control System 
Figure 65. 

The same exits are used for the reel option, the file 
option, or both of these options ( see the section on the 
extended use of the iocs in the Basic Input/Output 
Control System publication). Therefore, if multiple 
use stateroents referencing the same fd are used, and 
if the exits conflict, the reel and file options of the 
USE verb should not be included. In this case, the pro- 
grammer's use section procedural statements should 
determine if the condition is reel or file. 

If the RERUN clause or Option 2 of the use verb is 
used: (1) an mdm file and iokdf label option D for 
both 80- and 120-character labels must be included 
at System Generation, and ( 2 ) the file associated with 
the RERUN clause or Option 2 of the use verb must be 
a labeled file. Failure to include these items at System 
Generation may cause the system symbols /lra/ and 
/lrg/ to remain undefined when the cobol object 
program is loaded by the Linkage Loader. 



If neither the rerun clause nor Option 2 of the use 
verb is used, the undefined system symbols /lra/ and 
/lrg/ will not affect the execution of the object pro- 
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Input/Output Verbs 

OPEN and CLOSE 

The COBOL compiler provides the facility for opening 
an input or output file, processing it, closing it, and 
subsequently reopening it as an input or output file. 
The OPEN verb is used to initiate the processing of 
one or more input and/or output files. The format of 
the OPEN verb is : 

OPEN INPUT file-name-1 [file-name-2 ... 1 

OUTPUT file-name-3\jile-name-4 ... 1 

The CLOSE verb is used to terminate processing of 
one or more input and/or output reels or files. Provi- 
sion for optionally locking or not rewinding is also in- 
cluded. The format of the close verb is: 



CLOSE file-name-1 [rEElI WITPI j ^ 



I] 

file-name-2 ... 



LOCK 

REWIND 



Note: The reel option must not be used if more than 
one file appears on a reel and the remaining files are to 
be processed, or if the file consists of a single physical 
reel. If used, reels after the first will be rewound. 

See the General Information Manual for details con- 
cerning the OPEN and close verbs. 

READ 

The function of this verb is to make the next record 
from an input file available for processing. The gen- 
eral form of the read verb is: 

READ file-name RECORD [ iNTO area-namel 

AT END any imperative statement 
In addition to the details specified in the General In- 
formation Manual, the following considerations per- 
tain to the use of the read verb: 

1. An OPEN statement for the file must be executed 
prior to the execution of the first read for that file. 

2. When a read is executed, the next record of the 
file becomes accessible in the input area defined by the 
associated Record Description entry in the File Section 
of the Data Division. The record remains available in 
the input area until the next read ( for that file ) is exe- 
cuted. The named file must be defined by an fd entry 
in the Data Division of the program. 

3. Every read statement must include an at end 
clause containing any imperative statements; i.e., any 
single verb with its operand(s), or a sequence of verbs 
with their operands terminated by a period and con- 
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taining no explicit or implied conditional expressions. 
Once an at end statement has been executed, any at- 
tempt to READ from the file will constitute an error un- 
less a subsequent close and open have been executed. 
Note: When reading a file containing fixed-length, 
blocked records, the end-of-file condition does not nec- 
essarily occur following the last logical record. There- 
fore, the programmer must test for a record consisting 
of all padding characters to ensure detection of the 
end of the logical file. 

4. The INTO area-name option converts the read into 
a read and move. The area-name specified must be the 
name of either a Working-Storage record area or an 
output record area. When this option is used, the cur- 
rent record becomes available in the input area, as well 
as in the area specified by area-name. If the format of 
the INTO area differs from that of the input record, the 
data will be moved in accordance with the rules for the 
move verb without the corresponding option. It will 
be assumed that the area specified by area-name will 
be completely filled by information from the input rec- 
ord. If this is not the case, read and move should be 
used rather than read into. 

5. Each time an end-of-reel condition occurs in a 
reel other than the last, the read verb causes the fol- 
lowing operations to take place: 

a. If labels are present ( as specified in the fd for 
that file) the standard end-of-reel label subrou- 
tine of the Input/Output Control System is 
executed. 

b. A tape alternation occurs, if appropriate. 

c. If labels are present, the standard beginning-of- 
reel label subroutine is executed. 

d. If rerun has been specified for this file, a 
checkpoint record is written. 

e. The next record in the file is made available 
for processing. 

WRITE 

The purpose of the write verb is to release a record for 
insertion in an output file. The format of a write state- 
ment is : 

WRITE record-name FROM area-name 

In addition to the details specified in the General In- 
formation Manual, the following considerations pertain 
to the use of the write verb: 

1. If the user desires to write records which have 
been described by the renaming option ( see the "file 
control" paragraph ) , the record-name must always be 
qualified by the file-name. 

2. If the FROM option is used, information will be 
transmitted from area-name with or without word 
marks, depending upon the recording mode of the file 
associated with record-name. If the file is defined in the 



Load mode, word marks will be transmitted. If the file 
is defined in the Move mode, word marks will not be 
transmitted. Area-name must be the name of an input 
record or a Working-Storage or Constant Section rec- 
ord area. 



DISPLAY 

The format of the display verb is : 
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data-name-2 
literal-2 



j .] 



UPON mnemonic-name 



In addition to the details specified in the General In- 
formation Manual, the following information pertains 
to the use of the display verb: 

1. display literals must be non-numeric. 

2. The Operating System's Standard Punch Unit and 
Standard Print Unit may be equated with mnemonic- 
names in the special-names paragraph of the Environ- 
ment Division. If the upon option is omitted, the con- 
sole printer will be used as the standard Display De- 
vice. 

3. Depending on the 1403 printing chain or the con- 
sole printer type head, certain characters will not be 
displayed. See the publication, IBM 1410 Principles of 
Operation, Form A22-0526 or IBM 7010 Principles 
of Operation, Form A22-6726, for further details. 

4. If a printer is used, it will be assumed that the 
carriage tape has a channel-1 punch. 

5. Information of any length can be displayed on 
any display device. 

6. A standard set of error procedures is provided by 
the resident Input/Output Control System for use in 
the execution of the display verb. 

Figure 13 shows a display statement that will cause 
the contents of the field grand-total to be typed 
on the console printer when the object program is 
executed. 
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Figure 13. Standard DISPLAY Device 

Figure 14 shows a display statement that will cause 
the contents of the field grand-total to be displayed 
in 80-character records on the Standard Punch Unit 
when the object program is executed, assuming that 
the mnemonic-name punch has been equated with the 
system-output-punch. 
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Figure 14. Punch DISPLAY 
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ACCEPT 

The function of the accept verb is to obtain low- 
volume data from the Operating Systems Standard 
Input Unit. The Standard Input Unit is the only de- 
vice from which information can be accepted. The 
general form of the accept verb is : 

ACCEPT data-name 

Figure 15 shows an accept statement that will cause 
data to be read from the Standard Input Unit and 
moved into the area defined by the data-name cancel- 
lations. If this area contains more than 80 characters, 
sufficient card images will be read to fill it. 
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Figure 15. ACCEPT Verb 

A standard set of error procedures is provided by the 
resident Input/Output Control System for use in the 
execution of the accept verb. 



Data Manipulation Verbs 
MOVE 

The MOVE verb can be used in either of two formats: 



data-naine-2\ data-name-3 



Option 1 

Option 2 
MOVE CORRESPONDING data-name-1 TO 



4 



...] 



data-name-2 data-name-3 ... 

In addition to the details specified in the General 
Information Manual, the following considerations per- 
tain to the use of Options 1 and 2 of the move verb : 

1. The following moves are aligned by decimal 
point: 

a. Elementary numeric to elementary numeric. 

b. Elementary numeric to elementary alpha- 
numeric report. 

c. Elementary non-numeric to elementary nu- 
meric. (The elementary non-numeric item is 
assumed to be an integer. ) 

2. All other moves are left-justified. 

3. When figurative constants are used as operands 
of the MOVE verb, the size of the receiving area deter- 
mines the number of characters that are moved. For 
example, if the size of area-a in Figure 16 is five posi- 
tions, its value after execution is five nines ( 99999 ) . If 
the receiving field is a report item, no editing will take 
place. Instead, the entire field will be filled with the 
constant being moved. 
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Figure 16. MOVE Verb 

4. The corresponding option will not match a data- 
name which is redefined at a lower level than that of 
the operand in the corresponding statement. 

EXAMINE 

The general form of the examine verb is: 
EXAMINE data-name 

ALL 



(AL 
<LE 



1 TALLYING < LEADING > literal-1 
\ UNTIL FIRST , 



[replacing by literal-2~^ 
literal-3 BY literal-4 



, ( ALL 

replacing < LEADING 

( r UNTIL I FIRST 

See the General Information Manual for details con- 
cerning the examine verb. 



Arithmetic Verbs 

The following rules apply to the arithmetic verbs: 

1. All data-names used in. arithmetic statements 
must represent elementary numeric data items that are 
defined in the Data Division of the program. A data- 
name that is defined within the Constant Section can- 
not appear as the result field of an arithmetic statement. 

2. All literals used in arithmetic statements must be 
numeric. 

3. The maximum size of any operand ( data-name or 
literal) is 18 digits. If the format for any operand speci- 
fies a size greater than 18 digits, the compiler will 
produce an error message when it encounters the dis- 
crepancy. 

4. Intermediate result fields generated for the evalu- 
ation of arithmetic expressions (formulas) will always 
have a picture of S9( 10) V9( 10). If greater precision is 
desired, the simple arithmetic verbs (i.e., add, sub- 
tract, MULTIPLY, and divide) must be used. 

5. Decimal-point alignment is supplied automati- 
cally throughout computations. 

6. The format of any data item involved in compu- 
tations (e.g., addends, subtrahends, multipliers, etc.) 
cannot contain editing symbols. If this rule is violated, 
the compiler will indicate the error by an appropriate 
message. Operational signs and implied decimal points 
are not considered editing symbols. The data-name in 
the GIVING option and the result field in the compute 
verb format represent data iteras which must not enter 
into computations if they contain editing symbols. 
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7. The only figurative constant permitted in arith- 
metic Statements is zero ( or zeros and zeroes ) . 

8. For the simple arithmetic verbs the data charac- 
teristics of the receiving field control the precision of 
the operation; therefore, no high-order digit will be lost 
without creating the size error condition. All specified 
decimal positions will also be produced. 

9. For use with the size error option "any impera- 
tive statement" is any single verb with its operand(s) 
or a sequence of verbs with their operands terminated 
by a period and containing no explicit or implied con- 
ditional expressions. 

10. If exponentiation is used in a compute expres- 
sion, the exponent must be an integer. Negative expo- 
nents are permitted. Additional information on each of 
the arithmetic verbs may be found in the General 
Information Manual. 



ADD 

The general form of the add verb is: 

ADD i data-name-1 n S data-name-2 ) 
( literal-1 )\_} literal-2 ) ' ' ' J 

] GIVING [ data-name-n ROUNDED 

ON SIZE ERROR any imperative statement 

An ADD statement must name at least two addends. 
For additional details concerning the add verb, see the 
General Information Manual. 

CORRESPONDING Option: The corresponding 
option of the add verb allows the programmer to 
specify the addition of corresponding items in one op- 
eration in a manner similar to move corresponding. 

The general form of add corresponding is : 

ADD CORRESPONDING data-name-1 TO data-name-2 

[rounded] 

ON SIZE ERROR any imperative statement 

Numeric elementary items within data-name-1 are 
added to numeric elementary items with matching 
names in data-name-2. Data-name-1 and data-name-2 
must be nonelementary items. The rules stated for the 
simple ADD verb apply to each pair of items in the add 
corresponding option. 

The rules concerning redefined areas are the same 
for the ADD corresponding option as for the move 
corresponding option. 

The rounded option and the size error option of the 
ADD verb may also be used vdth add corresponding. 



For a detailed description of these two options, see the 
General Information Manual. 

Note: When size error is used in conjunction with 
corresponding, the size error test is made only after 
the completion of all the add operations. If any of the 
additions produced a size error, the resultant field for 
that add remains unchanged, and the "any imperative 
statement" is executed. 

To illustrate the use of the add corresponding op- 
tion, assume that the programmer wishes to add items 
from a work area named receipts to corresponding 
items in an area designated stock-on-hand. He would 
write this statement: 

ADD CORRESPONDING RECEIPTS TO STOCK-ON-HAND 

Figure 17 shows what will result from this statement. 
Note that noncorresponding items in the stock-on- 
hand area are not affected. 
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Figure 17. ADD CORRESPONDING 

SUBTRACT 

The general form of the subtract verb is: 



data-name-1 \ \ data-name-2 



S2SIMCT jttm LI 



literal-2 



! ■] 



[^ ROUNDED I 



™OM \f^Tr'"\ [giving <i»»»-„.me-m] 

ON SIZE ERROR any imperative statement 

A SUBTRACT statement must name at least one sub- 
trahend and one minuend. For further details concern- 
ing the SUBTRACT verb, see the General Information 
Manual. 

CORRESPONDING Option: The corresponding 
option of the subtract verb functions in the same way 
as the corresponding option of the add verb. 

The general form of subtract corresponding is: 

SUBTRACT CORRESPONDING data-name-1 

FROM data-name-2 [ ROUNDED 1 
ON SIZE ERROR any imperative statement 
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MULTIPLY 

The general form of the multiply verb is: 

data-name-2 
Uteral-2 



MULTIPLY ] ^':Xr' \ EI j mlTalT-' \ 

[ giving data-names'] [ ROUNDED ] 
ON SIZE ERROR any imperative statement 



DIVIDE 

The general form of the divide verb is: 

rM\7Tr-.T7 \ data-name-l) ^xTT-rv \ data-name-2 } 
Umm j literal-l \ ^^^^ } literal-2 \ 

[ giving data-name-al [ ROUNDED 1 
ON SIZE ERROR any imperative statement 



coMPUire 

The general form of the compute verb is: 

COMPUT E data-name-1 [ ROUNDED ] 
= arithmetic expression 

ON SIZE ERROR any imperative statement 



Procedure Branehing Verbs 

GO TO 

There are two formats in which the go to verb can be 
used: 

Option 1 

GO TO procedure-name 

Option 2 
GO TO procedure-name-1 procedure-name-2 

procedure-name-3 ... DEPENDING ON data-name 

For additional information concerning the go to 
verb, see the General Information Manual. 

ALTER 

The general form of the alter verb is : 
ALTER procedure-name-1 TO PROCEED TO 

procedure-na.me-2 procedure-name-3 TO 

PROCEE D TO procedure-name-4 . . .1 

A GO TO sentence that is to be altered must be: 

1. An unconditional go to sentence 

2. Written as a separate paragraph consisting solely 
of the go to sentence, preceded by a procedure- 
name 



PERFORM 

There are five formats in which the perform verb can 
be used. These are: 
Option 1 

PERFORM procedure-name-1 THRU procedure-name-2 

Option 2 

PERFORM procedure-name-1 THRU procedure-name-2 

Option 3 

PERFORM procedure-name-1 THRU procedure-name-2 

UNTIL condition- 1 
Option 4 

PERFORM procedure-name-1 THRU procedure-name-2 

VARYING data-name-1 FROM 

j numeric-literal- 1 } _y \ numeric-literal-2 } 

( data-name-2 ) — ( data-name-3 ) 

UNTIL condition-1 

Option 5 

PERFORM procedure-name-1 THRU procedure-name-2 

VARYING subscript-name-1 

FROM \^^*^Ser-l ) „„ \integer-2 } 
} data-name-1 ) — / data-name-2 ) 

UNTIL condition-1 AFTER subscript-name-2 

mm ^"aZLLA SI ^ZZL-A MHL 

condition-2 AFTER subscript-name-3 FROM 

Unteger.5 ) Vff''-^ A UNTIL concZiiion-sl 
/ aata-name-5 \ — ) data-name-6 ) J 



Compiler Directing Verbs 

ENTER 

The enter verb, used with the call verb, allows the 
programmer to construct multiphase cobol programs 
and to incorporate into his object program Fortran 
and/or Autocoder compiled subprograms. The incor- 
poration of subprograms is performed at the time the 
object program is processed by the Linkage Loader. 
( See the publication IBM 1410/7010 Operating System; 
System Monitor, Form C28-0319. ) Each enter state- 
ment must constitute a separate paragraph in the 
source program. The form of the enter verb is : 

T^xTrrr^n < COMMUNICATION-MODE ) 
ENTER j COBOL \ 

The entry enter communication-mode precedes the 
calling of the subprogram ( s ) . The call verb specifies 
the subprogram(s) to be included in the object pro- 
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gram. The entry enter cobol must terminate the list of 
subprograms, communication-mode may be entered 
any number of times in a program. 

The COMMUNICATION-MODE can be used to perform 
the following functions: 

1. Read from disk storage devices directly into 

the WORKING STORAGE SECTION of the DATA DIVISION. 

2. Write to disk storage devices directly from the 

WORKING STORAGE SECTION of the DATA DIVISION. 

3. Share an on-line printer in an operating system 
that has full object-program carriage-control capabili- 
ties. This technique is usually faster than the display 
verb method. The cobol program must enter an Auto- 
coder subprogram in order to use the Resident monitor 
Print Routine; the Autocoder subprogram must con- 
tain a specific linkage sequence. Use of the Resident 
Monitor Print routine, and the linkage sequence 
required for its execution, are described in the System 
Monitor publication. 

4. Share an on-line card reader with the operating 
system (see "Read Routine" in System Monitor). This 
technique is usually faster than the accept verb 
technique. 

5. Share an on-line card punch with the operating 
system ( see "Punch Routine" in System Monitor ) . This 
technique is usually faster than the display verb 
technique, 

call 

The general form of the call verb is: 



CALL 



{linkage-symbol 
subprogram-name 
system-symbol 



i file-name-1 
USING < data-name-1 
I Uteral-1 



[\ 



iile-name-2 

data-name-2 

literal-2 




Subprogram- 1 is the name contained in the title 
card of the subprogram. The call verb causes the 
COBOL compiler to generate an imbedded call for the 
named subprogram. When the imbedded call is proc- 
essed by the Linkage Loader, it is converted into a 
branch to the first character of the called subprogram. 

The USING option specifies the required parameters 
(data-names and/or literals) for the subprogram. 
These parameters reference data within the cobol pro- 
gram and are the only means of communication be- 
tween the main program and the subprogram. At 
object program run time, these parameters are repre- 
sented by a sequence of five-character addresses of the 
appropriate data, with a word mark over the high- 
order position of each address. This list is followed by 
a terminal "No Operation" instruction. (The number 
of parameters is used by the called subprogram to 
determine the point at which control is to be returned 
to the main program.) Although any number of 



parameters may be specified, a maximum of two sub- 
scripted data-names may appear in a given using 
option. 

The format of the call statement used to call and 
enter a phase is 

SALL CHAIN USmS \^Xr' \ ' 

The above call statement, used with the enter 
verb, permits the chain feature to be used with the 
Linkage Loader. See System Monitor for additional 
details of the chain feature, including specifications 
for building multiphase cobol object programs. 

The COBOL compiler will generate an imbedded call 
for the CHAIN subprogram. This call will be followed 
by the address of the location of literal- 1 or data- 
name-1. There is a word mark in the high-order posi- 
tion of the field with the address. The sequence is 
terminated with a nop instruction. 

Literal-1 or data-name-1 should be unsigned and 
three digits long. This literal or data-name represents 
the phase number field (columns 6-8) of a Linkage 
Loader phase card which will be generated by a Link- 
age card. 

A CALL statement used to call and enter a phase may 
not appear within the declaratives portion of a pro- 
gram. 

The CALL verb may be used only after the communi- 
cation-mode has been entered. No other verb may ap- 
pear within the communication-mode. 

The following call statement will generate the illus- 
trated calling sequence. For clarity, the calling se- 
quence is presented in standard Autocoder format. 
However, the calling sequence is written on the Go 
file (or punched) in standard 1410/7010 relocatable 
format. 

CALL [SUBPROGRAM] [ USING 
[file-name-1, . . . file-name-n] 
[data-name-1, , . . data-name-n] 
[literal-1 , . . . Uteral-n] 

CALLING SEQUENCE GENERATED 
OPERATION CHARACTER 



CODE 

DCWS 
DCW 


OPERAND 

SUBPROGRAM 
FILE-NAME-1 


COUNT 

7 
5 


DCW 
DCW 


FILE-NAME-N 
DATA-NAME-1 


5 
5 


DCW 
DCW 


DATA-NAME-N 
LITERAL-1 


5 
5 


DCW 
NOP 


LITERAL-N 


5 
1 
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The Dcw address constant of file-name-n points at 
the low-order character of the File List Origin field of 
the File Table. 

The DCW address constant of data-name-n points at 
the low-order character of the data field. A word mark 
may appear over the high-order character of the data 
field. 

The DCW address constant of literal-n points at the 
low-order character of the literal. A word mark ap- 
pears over the high-order character of the literal field. 

index register usage 

In general, index registers 1-12 are used when exe- 
cuting COBOL object programs, and index registers 13, 
14, and 15 are used by the Operating System. 

Subprograms — called by entering communication- 
mode — do not use all 15 index registers. If a subpro- 
gram contains subscripted parameters, as specified in 
the USING portion of the call statement, the subpro- 
gram may use index registers 1-7, 9, and 11. If a sub- 
program does not contain subscripted parameters, the 
subprogram may use index registers 1-9, 11, and 12. 
If in the above two cases, the call statement that calls 
the subprogram is not in the declarative portion of 
the Procedure Division, index register 10 may also be 
used by the subprogram. Index registers that are used 
by Autocoder subprograms should never be left 
negative. 

Upon returning to the cobol main object program, 
index registers 1-15 will be used; the contents of the 
index registers used by the subprogram are destroyed. 

linkage i,oader memory map 

For the main cobol object program phase, the four 
COBOL subprograms must immediately follow the 
IBCOBOL subprogram on the Linkage Loader memory 
map. The relocation factors for ibcobol and the four 
COBOL subprograms must be identical. Therefore, 
when loading user -written subprograms as part of the 
main cobol object program phase, a calln card must 
follow the call card for cobol subprogram IIIIIIIOOl. 
(The I's represent the subprogram identification that 
is contained in columns 73-79 of the program-id card. 
This card appears in the identification division of 
the COBOL source program. ) In order to force the above 
order, a calln card for one of the cobol object time 
subroutines, such as ibcbldsply, should be included as 
part of the main cobol object program phase. 

EXIT 

The exit verb is used when it is necessary to provide 
an end point for a procedure that is to be executed by 
means of a perform statement, or for procedures speci- 
fied in the "use" section. While exit is classified as a 
compiler-directing verb because it supplies the com- 
piler with necessary information and does not produce 



any coding in the object program, it can also be thought 
of as a "dummy" program verb. 

EXIT must appear in the source program as a one- 
word paragraph preceded by a paragraph-name. The 
form of the exit verb is : 
EXIT . 

Further discussion of the exit verb is contained in 
the General Information Manual. 

NOTE 

The form of the note verb is: 
NOTE any comment. 

See the General Information Manual for additional 
information concerning this verb. 

Ending Verb 

STOP 

The general form of the stop verb is: 

STOP j^'( 

In addition to the details specified in the General 
Information Manual, the following information per- 
tains to the use of the stop verb: 

1. The statement: 
stop literal 

will cause the program to print the literal on the con- 
sole printer and enter the Wait-Loop routine of the 
Resident Monitor. (For details, see the publication. 
System Monitor. ) 

2. The statement: 
STOP run 

indicates the end of the program and generates the 
message "stop run" on the console printer, followed by 
a return to the System Monitor. 



Conditional Expressions 

In addition to the details contained in the General In- 
formation Manual, the following rule applies to condi- 
tional expressions. 

Within a relational expression the subject, relational 
operator, and object must all be at the same logical 
parenthetical level. Therefore, a left parenthesis pre- 
ceding an object indicates that arithmetic follows. 



Example: 

VALID 

IFA = (B + C) 
IFA = (-B) 



INVALID 

IF A = (BORC) 

IFA = ( (B -I- C) ORD) 



Implied subjects and implied relational operators are 
permissible in conditional expressions. No other abbre- 
viated usage is permitted. 
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Example: Added Features of the Procedure Division 

^^^™ mvALiD rj,^^ following features, not contained in the General 

IF A - B OR C IF A - B C OR D Information Manual, are included in the 1410/7010 

In a conditional expression the logical operator not „„ „_ i 

_ , I'll! COBOL language t 

is only permitted at one given parenthetical level. i tt^ n i 

J.* X lie USE JL/CC13.rB.ilVe 

tLxample. 2. xhe corresponding option of the add verb 

VALID INVALID 

NOT (A OR B) NOT (NOT A OR B) 3- The CORRESPONDING option of the subtract verb 
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General Information 



Programming Techniques 

When writing cobol source programs, the techniques 
described below can be used to produce more efficient 
machine-language coding or to increase compiling 
speed. 

EFFICIENT OBJECT PROGRAMS 

The suggestions given in this section should be fol- 
lowed to obtain the most efficient machine-language 
coding from the 1410/7010 cobol compiler. In most 
cases object program efficiency is significantly im- 
proved by using these programming techniques, add, 
COMPUTE, conditional, move, and subtract statements 
are subject to the greatest increases in object code effi- 
ciency by use of these techniques. 
Add: The most efficient add statement is: 

ADD data-name-1 TO data-name-2. 

where the sealing of data-name-1 is identical to that of data- 
name-2, and the size of data-name-1 is not greater than that 
of data-name-2. 

Compute: A series of simple arithmetic statements 
usually requires less core storage and is faster than an 
equivalent compute expression. 

Conditional Statements: (comparisons of unsigned 
numeric data-names are more efficient than compari- 
sons of signed numeric data-names. 

The most efficient conditional statement is: 

IF data-name-1 IS EQ UAL TO 'X' GO TO procedure-name. 
where the size of data-name-1 is one character and 'X' is any 
one-character alphanumeric literal. 

Another efficfent conditional statement is : 

(IS [NOT] GREATER THAN^ 
„ , ^ , j IS [NOT] LESS THAN ( , ^ . 

ir^ aata-name-1 < jg fNOTl EQUAL TO ( data-name-2 

{ [NOT] = ) 

GO TO procedure-name. 
where 

1. the size of data-name-1 is equal to that of data-name-2; 

2. both data-name-1 and data-name-2 are either elementary 
or redefined; 

3. if both data-name-1 and data-name-2 are elementary nu- 
meric, then both are unsigned and their scaling is identical. 

When an if and a go to statement are not combined, 
or the condition is part of a perform statement, the 
most efficient comparison is made where 

1. the size of data-name-1 is equal to that of data- 
name-2; 

2. both data-naine-1 and data-name-2 are either ele- 
mentary or redefined; 

3. if both data-name-1 and data-name-2 are elem- 
tary numeric, then both are unsigned and their 
scaling is identical. 



A series of simple conditional expressions requires 
less core storage and is faster than an equivalent com- 
plex conditional expression. A complex conditional ex- 
pression is defined in this manual as a conditional 
expression with one or more of the following: an or 
logical operator; parentheses; subscripting; an arith- 
metic expression. 

Move: It is always faster and, in most cases, it re- 
quires less core storage to move a level 77 constant 
than to move a figurative constant. 

The most efficient move statement for various types 
of items and for zero suppression and alphanumeric 
report editing is: 

MOVE data-name-1 TO data-name-2 

The following requirements should be fulfilled to ob- 
tain the most efficient object coding with this form of 
the move statement. 

For signed, numeric, elementary items, the scaling of 
data-name-1 should be identical with that of data- 
name-2. 

For unsigned, numeric, elementary items: 

1. the scaling of data-name-1 should be identical 
with that of data-name-2; 

2. the size of data-name-1 should be equal to that of 
data-name-2. 

For non-numeric, elementary items, the size of data- 
name-1 should be equal to or greater than the size of 
data-name-2. 

For group items, the size of data-name-1 should be 
equal to or greater than that of data-name-2. 

For zero suppression: 

1. the scaling of data-name-1 should be identical 
with that of data-name-2; 

2. the size of data-name-1 should be equal to that of 
data-name-2; 

3. the picture clause for data-name-1 should con- 
tain only the characters 9, V, P, S; 

4. The picture clause for data-name-2 should con- 
tain only the characters Z, V, P. 

For alphanumeric report editing: 

1. the scaling of data-name-1 should be identical 
with that of data-name-2; 

2. the picture clause for data-name-1 should con- 
tain only the characters 9, V, P, S; 

3. the computational size of data-name-1 should be 
equal to that of data-name-2. "Computational 
size" refers to the maximum number of numerics 
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that may be present in the edited item. For ex- 
ample: 



EDITING 
PICTURE 

zzz.zz 

—.99 

$$$.99 
***.99 



COMPUTATIONAL 
SIZE 

5 
4 
4 
5 



Perform: The most efficient perform option 4 or 5 is: 
PERFORM procedure-name-1 THRU proceclnre-name-2 



VARYING data-name-X 
{ literal-1 



FROM 



I {literal-2 ) 

( data-name-1 ) ^— ( data-nanie-2 ) 



UNTIL condition-1 

where the scaling and length of data-name-X, literal-1 or 

data-name-1, and literal-2 or data-name-2 are identical. 

Subtract: The most efficient subtract statement is: 

SUBTRACT data-name-1 FROM data-name-2. 

where the scaling of data-name-1 is identical to that of data- 
name-2. 

Already-Written Programs: For programs that have 
already been written in cobol, it is not necessary to ex- 
amine each COBOL source program statement to deter- 
mine if the object program eflBciency can be improved. 
The approximate card number and the type of op- 
timization that may be possible are printed as a warn- 
ing message at compilation time. 

In most cases alteration of an operand characteristic 
or a statement format produces optimum coding. 

The list of relocatable core-storage assignments can 
be obtained by use of the list operand option on the 
MON$$ EXEQ COBOL Card. Refer to "1410/7010 cobol 
Compiler Requirements" later in this manual. 

Miscellaneous: For files that contain multiple rec- 
ords, it may be more economical to define only one 
form and then transfer the record to an appropriate 
work area. 

Use unsigned numerics whenever possible. 

Terminate every source statement with a period. 

Use READ INTO and write from whenever possible. 
READ into and write from should be used only when 
the receiving area is equal to or larger than the send- 
ing area. If the file associated with the read into or 
write from is in Load mode, the word marks will be 
moved. 

For elementary numeric items, the scaling variation 
should be minimized. 

Subscripting and redefines clause usage may be less 
efficient than other approaches. 

Whenever possible, simple statements referencing 
elementary items should be used rather than complex 
statements or statements that reference group items. 

The accept and display verbs should be used only 
for low- volume input or output. 



efficient compilation 

These suggestions should be followed to increase com- 
pilation speed. 

1. Unnecessary paragraph-names should be avoided. 

2. Certain exeq card options ( see the section "1410/ 
7010 COBOL Compiler Requirements") cause the com- 
piler to produce additional output. When not essential, 
these options should not be elected. 

3. It is recommended that, wherever possible, the 
programmer use the picture clause instead of the size, 
POINT, CLASS, and blank clauses of a Record Descrip- 
tion entry. The picture clause specifies the character- 
istics of an elementary item in a more compact form, 
and can, therefore, be processed more efficiently. 

GENERAL CONSIDERATIONS 

Some general suggestions and cautions are given below. 

1. When desired precision of results of arithmetic 
expressions exceeds that represented by pictxhie 
S9(10)V9(10), it is suggested that the appropriate 
arithmetic verbs be used (i.e., add, subtract, multi- 
ply, and divide), rather than the compute verb. 

2. The normal contents of the monitor-switch, in 
the Resident Monitor's Communication Region, is a 
blank. Therefore, it is recommended that the user 
either: 

a. not assign a blank value to a meaningful condi- 
tion of this switch; or 

b. let the blank value indicate that the switch has 
not been set. 

3. When a redefines clause is associated with a 
Load mode input file, the redefined portion of the Load 
mode record does not carry word marks on tape, 

4. Conventions which help to debug source pro- 
grams are: (1) the placing of all procedure-names on 
a separate card, and (2) beginning all verbs and con- 
ditional statements in column 12 of a card. 

5. Tables of constants can be formed by using the 
OCCURS clause. References to these tables can be made 
by the use of subscripts. The procedure for construct- 
ing tables of constants is described in the General 
Information Manual. 

Compatibility Considerations 

Certain cobol verbs and their associated language 
specifications cannot be defined in compatible terms 
between the 1410/7010 Systems and other systems. It 
is suggested that the user avoid the following when 
writing cobol programs that are to be compiled on 
more than one system: 

1. accept 

2. UPON option of the display verb 

3. enter 

4. use 

5. CALL 
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For reasons of compatibility, the use of the redefines 
clause should be limited to one level of redefinition, 
with the; exception that, if the redefines is specified 
at the 01-level, one additional level of redefinition 
within the level 01 may be used. 

Use of the cobol Character Set (H2) for literals is 
suggested, when compatibility with other systems is 
a consideration. 

The following clauses described in the General In- 
formation Manual are not implemented by the 1410/ 
7010 COBOL compiler for reasons of compatibility: 

1. The JUSTIFIED clause. Standard justification ac- 
cording to CLASS definition will always take place. If 
nonstandard data manipulation is required, the pro- 
grammer can use other language specifications for this 
purpose (e.g., the redefines clause). 

2. The Editing clause. Editing functions can only 
be specified by use of the picture clause. 

Qualification of Names 

Every name used in a cobol source program must be 
unique within the source program, either because no 
other name has the identical spelling, or because the 
name exists within a hierarchy of names (so that the 
name can be made unique by mentioning one or more 
of the higher levels of the hierarchy ) . The higher levels 
are called qualifiers when used in this way, and the 
process is called qualification. 

In addition to the information contained in the Gen- 
eral Information Manual covering the qualification of 
names, the programmer should note the following: 

1. Any name that requires qualification, but is not 
qualified, will refer to the first occurrence of that name 
in the program. The compiler assigns a relocatable 
address for each data-name; if there are duplicate data- 
names, the first address is used. No message is issued 
in the event of duplicate data-names. Therefore, the 
programmer must check his program for duplicate 
data-names and their need for qualification. 

2. A name plus all its qualifiers cannot exceed a 
total of 300 characters. If it does, an error message is 
produced. 

Literals 

In addition to the rules for forming literals specified 
in the General Information Manual, the following rules 
apply to the 1410/7010 cobol compiler: 

For Forming Numeric Literals: A numeric literal 
must consist of at least one, and not more than 18 
digits. It may also include a sign, preceding the first 
digit, and/or one decimal point. 

For Forming Non-Numeric Literals: Any character 
in the character set, except the quotation mark, the 
record mark, and the group mark, can be used in a 



non-numeric ( alphanumeric ) literal. Blanks are treated 
as characters and may be included freely. 

A non-numeric literal may occupy more than one 
line. It is continued by placing a hyphen in the seventh 
character position of the second card. ("CONT." on the 
COBOL Program Sheet). The continuation of the non- 
numeric literal must be preceded by a quotation mark. 

Subscripts 

In addition to the rules for subscripting, which appear 
in the General Information Manual, the following 
applies to the 1410/7010 cobol compiler: 

1. A subscript may not be more than four digits in 
length. 

2. If more than four digits are used, only the low 
order four digits will be referenced. 

3. The compiler does not check the number of digits. 
It will not issue a diagnostic message if more than four 
digits are used, if a zero subscript is used, or if the 
subscript exceeds the limits of the array. 

4. The programmer may check his subscripts by 
means of conditional statements. 

5. The length of a subscripted area must not exceed 
a four-digit number. 

6. If a greater area is used, erroneous addresses may 
be generated. 

Character Sets 

The IBM Character Set H2 must be used for cobol 
source programs. This character set consists of the 
numerals through 9, the 26 letters of the alphabet, 
and 12 special characters. The ibm 1410/7010 Char- 
acter Set may be used only for alphanumeric literals, 
with the following exceptions: (1) the ibm 1410/7010 
character "b" (substitute blank) cannot be used with 
even-parity tape records; (2) the ibm 1410/7010 char- 
acter " " ( word separator character ) cannot be loaded 
into the ibm 1410 or 7010 with a word mark. 

The COBOL (Set H2) special characters are shown 
below with their equivalents in the ibm 1410/7010 
Character Set: 



CARD 


COBOL 


1410/7010 




CODE 


(seth2) 


(set j^ 


^2) 


MEANING 


blank 






\ 


space 


11 






minus sign 








hyphen 


12 


+ 


& 




plus sign 


0-1 


/ 


/ 




division sign 


11-4-8 


* 


* 


\ 

i 


multipHcation sign 






check protection symbol 


12-4-8 


) 


n 




right parenthesis 


0-4-8 


( 


% 




left parenthesis 


0-3-8 


, 


, 




comma 


11-3-8 


$ 


$ 




dollar sign 


12-3-8 




• 


■ 


period 
decimal point 


3-8 


= 


# 




equal sign 


4-8 


' 


@ 




quotation mark 
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Figurative Constants 

In addition to the details specified in the General In- 
formation Manual, the following information pertains 
to the figurative constants. All figurative constants are 
treated as belonging only to the alphanumeric class 
except where noted. 



LOW-VALUE 
LOW-VALUES 

HIGH-VALUE 
HIGH-VALUES 

ZERO 

ZEROS 

ZEROES 

SPACE 
SPACES 



QUOTE 
QUOTES 



ALL "literal" 



The value of this figurative constant is the 
space, or blank, the lowest in the collating 
sequence. 

This figurative constant is defined as the 
character 9, the highest in the collating se- 
quence. 

This figurative constant represents the value 
0. It is the only figurative constant that can 
be treated as belonging to the NUMERIC 
class or the ALPHANUMERIC class. 
This figurative constant represents a blank, 
or space. It is the only figurative constant 
that can be treated as belonging to the AL- 
PHABETIC class or the ALPHANUMERIC 
class. 

This figurative constant represents the char- 
acter Note that the use of the word 
QUOTE to represent the character ' is not 
equivalent to the use of symbol ' to bound a 
literal. 

This figurative constant generates a sequence 
of characters specified by the single-char- 
acter non-numeric literal. 



TALLY 

The word tally is the name of a data item whose 
PICTURE is S99999. It is used primarily to hold informa- 
tion produced by the examine verb; however, it may 
be referenced by the programmer in any statement 
where a signed numeric field is valid. 

MONITOR-DATE 

In addition to the figurative constants, the ibm 1410/ 
7010 COBOL compiler provides the programmer with 
the special data-name constant monitor-date. This 
data-name constant is the name of a five-character 
data item ( system symbol /dat/ ) within the Communi- 



cation Region of the Resident Monitor, monitor-date 
contains the current date established by the System 
Monitor, and may be used in label-checking routines. 
The form of the date is yyddd, where: yy is the year 
(00-99) and ddd is the day of the year (001-366). 
monitor-date can be used in the same way as any 
item described in the Constant Section. 

Class Conditions 

The General Information Manual specifies that the 
CLASS of a data item may be numeric, alphabetic or 
ALPHANUMERIC. In addition, class condition tests can 
be used for all types of fields to determine, at object 
time, whether they are wholly numeric or wholly 
alphabetic in content. 
The source statement beginning: 

IF FIELD-A IS NUMERIC . . . 
results in a character-by-character check of the value 
of FiELD-A at object time. If an operational sign is pres- 
ent in the units position, the associated character will 
be interpreted as being numeric. Thus, —9 is inter- 
preted as "minus 9," not as the letter "R." 

The source statement beginning: 
IF FIELD-B IS ALPHABETIC . . . 
results in a character-by-character check of the value 
of FiELD-B at object time. If each character in field-b 
is alphabetic, the item is considered alphabetic. 

Examples: The following table shows how the class 
of an item is interpreted by the compiler depending 
on which of the class tests is specified: 



CHARACTER 


NUMERIC 


ALPHABETIC 


0-9 


YES 


NO 


SPACE 


NO 


YES 


A-R 


YES ( if units position ) 


YES 


S-Z 


NO 


YES 


? I 


YES ( if units position ) 


NO 


Other 






Special 






Characters 


NO 


NO 
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This section describes the requirements for compilation 
and execution of cobol programs under the 1410/7010 
Operating System. Knowledgje of the contents of the 
System Monitor publication is required for understand- 
ing this section. 

Requirements for Compilation 

In order to process a cobol source program under the 
IBM 1410/7010 Operating System, certain control cards 
are required to direct the operation of the Resident 
and Transitional Monitors and the Linkage Loader. 
The required Monitor control cards are: 



MON$$ 
MON$$ 
MON$$ 

MON$$ 



JOB 

MODE 

EXEQ 

ASGN 



The required Linkage Loader control cards are: 

PHASE 
CALLN 
CALL 

These control cards are described in detail in the 
publication, System Monitor. However, certain cobol 
options, which are available to the user, are discussed 
below. 

EXEQ Card Operand Options 

The user can control the output of the cobol compiler 
by placing operands immediately after the comma 
which follows the third System Monitor option on the 
EXEQ card. These operands can appear in any order 
and must be separated by commas, with no intervening 
blanks. Any of the following operands may be used: 

1. LIST— This operand produces a listing of source 
program names and corresponding object program re- 
locatable storage assignments. If list is specified, a 
check for duplicate procedure-names is made; a warn- 
ing message is issued if duplicate names exist. If list 
is not specified, no check is made and no warning mes- 
sage issued. 

The address assigned to a file-name is that of the 
low-order character of the File List Origin field of the 
File Table. 

A data-name address is assigned to the low-order 
character of the data field. 

A procedure-name address is assigned to the first 
character in the paragraph or section. 

A subscripted data-name address refers to the base 
address in the following formula. 



+ [id* I 

+ ) 



ACTUAL DATA-NAME ADDRESS = BASE ADDRESS + 
( VARIABLE 1 X INCREMENTl) 
(VARIABLE2 X INCREMENT2) -I- ) 2D'' 

(VARIABLES X INCREMENTS) J SD" 

*Note: Dimensions in array 

2. diagnostic— This operand suppresses the creation 
of an object program. ( diagnostic cannot be requested 
on the same exeq card with trace or nopch. ) 

3. TRACE— This operand causes the generation of a 
self-tracing object program. When each paragraph or 
section of the main body of the Procedure Division is 
executed at object time, the paragraph or section-name 
is printed on the Standard Print Unit. 

4. NOPCH— This option should be used only when a 
Go file is being created. The function of nopch is to 
suppress output on the Standard Punch Unit, thereby 
providing an object program on the Go file only. 

5. NOPRT— This option will suppress the listing of the 
COBOL source program, warning messages, and error 
messages on the Standai d Print Unit. ( noprt and list 
cannot be requested on the same exeq card. ) 

In the event of an error in the use of any of these 
options on the exeq card, the compiler will ignore all 
options, and produce only the normal output (an ob- 
ject program on the Go file and/or the Standard Punch 
Unit). 

Figure 18 shows an exeq card for cobol compilation 
with the TRACE and list options. 



Line 



0,1, 



Label 



J9- 



OperoHon 
JSIS 22 KL 



M.QN.i.t. , . , 



cvg^ 



.19- 



OPERANC 



C,0.a.0,i..j.y,f.T.R>..C.E.j.L.I,6.T. 



Figure 18. EXEQ Card for COBOL Compilation 

Requirements for Execution 

The object program produced by the cobol compiler 
consists of several subprograms. In accordance with 
the requirements of the Linkage Loader, each sub- 
program is headed by a title card. 

The Subprogram TITLE Card 

The COBOL compiler generates title card information 

based on the source program. 

The format of the title card is: 

Column 6 16 21 31 73 

yyddd TYlUEFROGRAMnnnxxxxx nnnsssss 
where 

yyddd is the current date taken from the Resident Monitor's 
Communication Region. 



1410/7010 COBOL Compiler Requirements 31 



nnn 



xxxxx 



sssss 



PROGRAM is the first seven characters of the IDENT field of 
the PROGRAM-ID card in the source program, 
is the subprogram number, assigned serially by the com- 
piler. This number is placed in columns 28-30 and 
columns 73-75. 

is the lowest relocatable storage address occupied by 
the subprogram. 

is the sequence-number field of the cards (or card im- 
ages ) in the subprogram. The sequence number of each 
TITLE card will always be 00001. 

The TITLE card is processed in the second phase of 
the COBOL compiler. The size of common is not known 
at this time and, therefore, does not appear on the 
TITLE card. It is not considered by the Linkage Loader 
and, if core storage limitations are exceeded, the core 
EXCEEDED messagc is not produced. 

IDENT Field of the PROGRAM-ID Card 

In order to comply with 1410/7010 Operating System 
requirements, the following restrictions pertain to 
completing the ident field (columns 73-80): 

1. It must always begin with an alphabetic char- 
acter. 

2. It cannot begin with the characters "ib". 

3. It cannot contain the slash ( / ) or any blank char- 
acters. 

If these requirements are not met, the compiler will 
replace the erroneous character with "A". For example, 
if the IDENT field contains iBPsn/b, the title cards will 
contain lAPSDAAnnn. 

Multiple Subprogram COBOL Output 

The following list shows the subprogram serial num- 
ber and function in the normal output of a compilation: 

SUBPROGRAM FUNCTION 

Storage allocation and value declarations for 
Identification, Environment, and Data Divi- 



SERIAL NO. 

001 



sions 



002 

003 
004 



Storage allocation and value declarations for 
Procedure Division literals 
Object code for Procedure Division 
Overlay addresses 



COBOL Subroutine Sizes 

The sizes of the cobol object time subroutines are as 
follows : 





NUMBER OF 


SUBROUTINE 


CHARACTERS 


IBCOBOL 


667 


IBCBLCMPAR 


1741 


IBCBLALTST 


91 


IBCBLSUBSC 


181 


IBCBLADOVR 


184 


IBCBLDSPLY 


639 


IBCBLACCPT 


191 


IBCBLEXPON 


1160 


IBCBLCLEAR 


391 


IBCBLFLDMP 


358 


IBCBLRDINT 


572 


IBCBLDVZER 


61 



Control Card Requirements 

The sequence of the appropriate Monitor and Linkage 
Loader control cards needed to compile and execute 
the program with the ident "payrollI" using the trace 
option is shown in Figure 19. 



(etc.) 



MON$$ EXEQ NAME, MJB 



CALL PAYROLL001 



\J 



CONGO 



CALLNIBCOBOL 



DISGO 



PHASENAME 



VJ 



MON$$ EXEQ LINKLOAD 



MON$$ ASGN LIB, B2 



VJ 



MON$$ ASGN MJB, Al 



(SOURCE PROGRAM PAYROLLI) 



MON$$ EXEQ COBOL, , , TRACE 



MON$$ ASGN MGO, A2 



MON$$ MODE GO 



MON$$ JOB ONE 



Figure 19. Sample Control Cards for a Compile-and-Go Opera- 
tion 



Linkage Loader control cards disgo and congo elimi- 
nate the search of the mgo file for subprogram ibcobol. 
The subprogram ibcobol is a required part of every 
object program. It must be requested with a calln 
card after the phase card. 

COBOL programs that have been compiled can be 
added to the System Library file. ( For details, see the 
publication, System Monitor. ) The call requirements 
for executing these programs from the System Library 
file are: 

CALL IBCBLADOVR 
CALL IBCBLDSPLY 
CALL IBCBLCMPAR 
CALL IBCBLSUBSC 
CALLN IBCOBOL 
CALL PRGNAMEOOl 

Following the calln card for ibcobol (Figure 19) 
is a CALL card for the first of the just-compiled sub- 
programs. The name used in this card consists of the 
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first seven characters of the ident field (payroll) and 
the serial number, 001. The other three subprograms 
(payroll002, fayrollOOS, and payroll004) are proc- 
essed by the Linkage Loader in response to imbedded 
calls that the compiler generates for each set of sub- 
programs. 

The Linkage Loader places the relocated program 
on the Job file, from which it is loaded by the Resident 
Monitor (exeq name,mjb). Note that the name used 
in the exeq card for the program must be the same as 
that used in the phase card given the Linkage Loader, 
but need not be the same as that used in the ident 
field given the compiler. 

The sequence of the appropriate Monitor and Link- 
age Loader control cards necessary to "execute" the 
program with the ident "payrollI", compiled at a 
prior time is shown in Figure 20. 

In Figure 20, the object program has been taken 
from the Standard Punch Unit and is submitted to the 
Linkage Loader from the Standard Input Unit ( rather 
than from the Go file, as in Figure 19). The basic 
difference between the two examples ( Figures 19 and 
20 ) is that in Figure 20 a call card is not used for the 
subprogram payrollOOI, because the title card of a 
subprogram placed in the Standard Input Unit serves 
the call function. 



(etc.) 



Object program from 
source program with 
IDENT "PAYROLLI" 




Figure 20. Sample Control Cards for Execution 
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Display with Carriage Control 



It is possible to have carriage control in a cobol pro- 
gram by making changes to the module ibcbldsply. 
Depending on how it is done, this may mean sacrificing 
some of the flexibility of the cobol program. When the 
user wishes to display a field, he must first move the 
field to a buflFer area. The Data Division has to set up 
a one-position field immediately preceding the buffer 



area, where the user moves in his carriage control 
character. 

Figure 21 shows one way this can be done. In this 
example, some line count references have been re- 
moved, and the user should consider replacing these 
according to his needs. 



MON«« 
MON*« 
MONS* 
MON«» 
MON*|t 
MONS« 
MON«$ 
MONS« 
MONS« 
MON$S 
MONSS 



DATE AUG64 

JOB COBOL CARRIAGE CONTROL 

ASCN MMl.Bl 



HIST FILE IN 

HIST FILE OUT 

SG3 OUT< AUTOCODER IN 



MLCS 0-ItXI.OUTPUTTANN 



USE NEM CC 



A OUT.LNCTER DECREMENT LINE COUNTER 

BZ SETSKIP TO SKIP TO NEXT PAGE 

MLCS 0UT+6.0UTPUTTANK-1 BLANK CARRIAGE CONTROL 

1X133. G 



ASGN MW2,A2 
ASGN MM3aB3 
ASGN HW4,A4 
ASGN MWS.B5 
ASGN MW6<B6 
ASGN MG0.A6 
MODE GO 
EXEQ SG3 
» »t HA NUPDATIBCBLOSPLV 
S0023A 
0023B 

S0O48A(00SOA 
C04aA« 
00486* 
004aC» 

$00S6A.0096A 
0056AOUTPUTTANNDA 
*O0S7A 

0057BOUTPUTTANK 2,2 

00S7C»OUTPUTTANKDA 1X132. G OLD OUTPUTTANK REFERENCE 
MON«« EXEQ AUTOCODER. .M*6.N0FLG 
MON»» EXEQ COBOL.. .NOPCH. LIST 
IDENTIFICATION DIVISION. 

PROGRAM-ID. CARCONTR. CARCONTR 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-t410. 
OBJECT-COMPUTER. IBM-1410. 
SPECIAL-NAMES. 

SVSTEM-OUTPUT-PR INTER IS PRT. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-O-CONTROL. 
DATA DIVISION. 

01 OUMMV. 

02 CC PICTURE IS X. 

02 BUFFER. 
AREAl PICTURE IS XtSOI. 
ARFA2 PICTURE IS X ( 50 > . 

03 AREA3 PICTURE IS X(32). 
PROCEDURE DIVISION. 
PARAG-l . 

MOVE 'TEST PICTURE AAAAAAAAAAAAAAAA AAAA AA AAAAAAAA AAAA AA ' 
TO AREAl. 

MOVE 'TEST PICTURE AAAAAAAA AAAAAAAAAAAA AAAAAAAAAA AAAAAA < 
TO AREA2. 

MOVE 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA* TO AREA3. 
MOVE "S" TO CC. NOTE •'2 SPACES AFTER PRINT*. 
DISPLAY BUFFER UPON PRT. 

MOVE "K" TO CC. NOTE '2 IMMEDIATE SPACES'. 
DISPLAY BUFFER UPON PRT. 

MOVE M* TO CC. NOTE 'IMMEDIATE SKIP TO CHANNEL l". 
DISPLAY BUFFER UPON PRT. 

MOVE 'T* TO CC. NOTE '3 SPACES AFTER PRINT'. 
DISPLAY nUFFER UPON PRT. 

MOVE 'J' TO CC. NOTE '1 IMMEDIATE SPACE'. 
DISPLAY DUFFER UPON PRT. 
STOP-IT. 

STOP HUN. 



03 
03 



MON»» 


ASGN MJB.B3 


MON«« 


EXEQ LINKLOAD 




PHASEXYZ 




CALLNIBCBLDSPLY 




OISGO 




CALLNIBCOBOL 




CONGO 




CALL CARCONTOOl 


MONt« 


EXEQ XYZ.MJB 


MON»« 


END 



Figure 21. Carriage Control Subroutine 
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Wrong-Length-Record Check 



The purpose of the Autocoder subprogram is to set a 
Wrong-Length-Record bit on in one or more iorw's of 
the file, as shown in Figure 22. 

The address of the File hst origin in the file table 
is passed from cobol main program to Autocoder sub- 
program with the ENTER COMMUNICATION-MODE Calling 
sequence. The File list origin address points to the 



link field in the iorw. The Autocoder subprogram will 
determine if there are any alternate areas associated 
with the file name by testing the link field in the iorw 
for zero. 

The Autocoder subprogram exits back to the cobol 
main program after setting a Wrong-Length-Record 
bit in the last iorw. 



MONSS 


DATE 


AUG64 






MON$S 


JOB 








MONS$ 


MODE 


GO 






MONSS 


ASGN 


MG0.A6 






MON$$ 


EXEQ 


COBOL, SOF, 


.SIU, 


(NOPCH.LIST 



IDENTIFICATION DIVISION. 
PROGRAM-ID. WLRTEST. 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT 90-CHAR-FILE 

ASSIGN TO TAPE-UNIT MRl. 

SELECT B9-CHAR-FILE 

ASSIGN TO TAPE-UNIT MR2 

RESERVE 5 ALTERNATE AREAS. 
DATA DIVISION. 
FILE SECTION. 
FD 90-CHAR-FILE 

RECORDING MODE IS LOAD MODE ODD PARITY 

RECORD CONTAINS 90 CHARACTERS 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS 90-CHAR-RCD. 
01 90-CHAR-RCD. 

02 BSTART PICTURE IS X(30). 

02 MST«RT PICTURE IS X(30). 

02 ESTART PICTURE IS X(30). 
FD 89-CHAR~FILE 

RECORDING MODE IS LOAD MODE ODD PARITV 

RECORD CONTAINS 89 CHARACTERS 

LABEL RECORDS ARE OMITTED 

DATA RECORD IS 89-CHAR-RCD. 
01 89-CHAR-RCD. 

02 BBSTART PICTURE IS X(30). 

02 MMSTART PICTURE IS X(29). 

02 EESTART PICTURE IS X ( 30 ) . 
WORKING-STORAGE SECTION. 
PROCEDURE DIVISION. 
DECLARATIVES. 
TEST-WLR-OPTION SECTION. 

USE AFTER STANDARD ERROR PROCEDURE ON 89-CHAR-FILE 

I. DISPLAY • WLR-89-CHAR-FILE' . 
END DECLARATIVES. 

II. ENTER COMMUNICATION-MODE. 

CALL WLRPGM USING 89-CHAR-FILE. 
12. ENTER COBOL. 
OPEN-90. 

OPEN OUTPUT 90-CHAR-FILE. 

MOVE 'START' TO BSTART. 

MOVE 'MIDDLE' TO MSTART. 

MOVE 'END' TO ESTART. 

WRITE 90-CHAR-RCD. 

CLOSE 90-CHAR-FILE. 

DISPLAY 'UNEQUAL RECORDS'. 
OPEN-89. 

OPEN INPUT 89-CHAR-FILE. 

READ 89~CHAR-FILE 

AT END GO TO STOPITT. 
STOPITT. 

CLOSE 89-CHAR-FILE. 
OPEN-IN-90. 

DISPLAY 'EQUAL RECORDS'. 

OPEN INPUT 90-CHAR-FILE. 

READ 90-CHAR-FILE 

AT END GO TO TNEXT. 
TNEXT. 

CLOSE 90-CHAR-FILE. 

DISPLAY 'EQUAL RECORDS OK'. 
STOPIT. 

STOP 'STOP GIVE DUMP'. 

STOP RUN. 





MONSS 




EXEU AUTOCODER 
TITLE WLRPGM 
SBR X4 




START 




CW SETEXIT 
MLCA 4+X4,X5 




TEST 




MLCB 0+X5,X5 


WLRTESTO 


» 


TEST LINKFIELD IN IORW FOR ZERO OR ALTERNATE AREAS 








C 0+X5. 0000000 




* 


ZERO INDICATES LAST IORW 








BE SETSW 




* 


MOVE GM TO CHANNEL TEST CHARACTER OR C FIELD 




» 


OF 


IORW FOR WRONG LENGTH RECORD CHECK. 
G 
MLCS 0M0.19+X5 




NEXT 










NOPWM 




SETEXIT 


B NEXTADCON 




« 


HANDLE NEXT IORW. 








B TEST 




« 


PREPARE TO EXIT ON LAST IORW. 




SETSW 




SW SETEXIT 
B NEXT 




» 


TEST IF LAST FILE HANDLED 




NEXTADCON 


BCE 5+X4.5+X4.N 




« 


IF 


NOT REPEAT THE SAME PROCEDURE ON NEXT FILE. 
A 353, X4 
B START 
END 




MON$S 




ASGN MJB.B3 




MONS$ 




EXEQ LINKLOAD 

DISGO 

CALLNIBCOBOL 

CONGO 

CALL WLRTESTOOl 




MONSS 




ASGN MR2.A8 




MONSS 




ASGN MRI.A8 




MONSS 




EXEQ IBCOBOL.MJB 




MONSS 




END 



Figure 22. Wrong-Length-Record Check Subroutine 
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1410/7010 COBOL Multiphase Programming 



The 1410/7010 Operating System multiphase program- 
ming feature provides the cobol programmer with 
complete segmentation capabilities. For example, if a 
41,000-character cobol program is to be run on a com- 
puter that has 40,000 positions of core storage, a low- 
activity portion of the program can be segmented as 
a separate phase. The System Monitor publication, in 
the section on the chain feature, discusses the use of 
multiphase programming. 

For most segmented cobol programs, the Data 
Division portion of the program is loaded once. How- 
ever, segments of the Procedure Division may be 
loaded many times without disturbing the Data Divi- 
sion. This enables files to be opened in an initialization 
phase, processed in a series of main phases, and closed 
in a termination phase. 

To use the multiphase programming feature, the user 
must observe the following general considerations: 

1. A phase can consist of cobol, Fortran, or Auto- 
coder routines or any combination of these routines. 

2. The number of phases can be up to 999. 

3. The number of phases in core storage at one time 
is dependent upon the number of core storage positions 
available. 

There are three special considerations in implement- 
ing COBOL multiphase object programs: 

1. The Linkage Loader memory map relocation 
factors must be equal for all main cobol subprograms 
using the same Data Division. 

2. COBOL requires a data area (common) at the top 
of core storage. Care must be taken to avoid overlaying 
COMMON if Autocoder and/or Fortran subroutines 
(using common) are in core storage with cobol. 

3. In a phase consisting of cobol object program 
routines and other language routines, the cobol rou- 
tines must contain the entry point. 

The relocatable library routine chain loads and 
executes phases of a program written in one or more 
of the Operating System languages. The program may 
be divided into phases by using Linkage Loader con- 
trol cards. 

Illustrations of the Linkage Loader control cards 
for various combinations of multiphase programs are 
given in the following examples. 

An example of a cobol. Autocoder, and Fortran 
phase without common in the Autocoder or Fortran 
subroutine is illustrated in Figure 23. Note that the 
Autocoder and Fortran subroutines are followed by 
two COBOL phases. 



MON«$ 


EXEO LINKLOAO 


001 


PHASENAMEX 




DISGO 




CALL CHAIN 




CALL IBCBLAOOVR 




CALL IBCBLDSPLY 




CALL IBCBLCMPAR 




CALL IBCBLSUBSC 




CALLNIBCOBOL 




CONGO 




CALL COBOLPIOOI 




CALUNAUTOCONAME 




CALL FORTRANAME 


002 


PHASE 




8ASEICOaOLPI002 




CALLNCOBOLP2002 


003 


PHASE 




BASE1COBOLP2002 




CALLNCOBOLP3002 


MON«« 


EXEQ NAMEX.MJB 



Figure 23. COBOL, Autocoder, and FORTRAN Phase without 
COMMON 



An example of a cobol. Autocoder, and Fortran 
phase with common in all subroutines is provided 
in Figure 24. 



MON«* EXEO LINKLOAO 

001 PHASENAMEX 
DISGO 

CALL CHAIN 
CALL IBCBLAOOVR 
CALL IBCBLDSPLY 
CALL IBCBLCMPAR 
CALL IBCBLSUBSC 
CALLNIBCOBOL 
CONGO 

CALL COBOLPIOOI 

CALLNIBCBLDVZER 

BASE2( VALUE BELOW COBOL COMMON) 
AUTOCODER PROGRAM IN SIU 

aASE2(VALUE BELOM AUTOCODER COMMON) 
FORTRAN PROGRAM IN SIU 

BASE2(VALUE OF TOP OF CORE STORAGE MINUS 2) 

002 PHASE 
BASEICOBOLPI 002 
CALLNCOBOLP2002 

003 PHASE 



MON«« EXEO NAMEXiMJB 

Figure 24. COBOL, Autocoder, and FORTRAN Phase with 
COMMON 



If a complete overlay of a phase is desired while in 
a multiphase environment, an Autocoder clear stor- 
age subprogram must be loaded as the first sub- 
program of the new phase. It must clear the new Data 
Division area before the new Data Division subpro- 
gram is loaded. 

Figure 25 is an example of the Linkage Loader con- 
trol cards required for a multi-phase cobol program 
with an Autocoder "clear storage" object card routine. 
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MON$* 
001 



S00667SYYYYY 



EXEQ LIMKLOAO 

PHASENAMEX 

DISGO 

CALL CHAIN 

CALL IBCBLADOVR 

CALL IBCBLOSPLY 

CALL IBC8LCMPAR 

CALL IQCBLSUBSC 

CALLNIBCOBOL 

CONGO 

CALL COBOLPIOOI 

PHASE 

BASeiCOBOLPlOOl 

TITLeAUTOCDNAME00667 



BASEICOBOLPI 001 
CALLNCOBOLP2001 

FND 



Figure 25. Linkage Loader "Clear Storage" Routine 

Note: In regard to the contents of the Autocoder 
"clear storage" object card routine, the following 
designations are to be noted: 

00667 — in columns 31-35 of the title card reflects the 
size of the subprogram ibcobol. 

5 — in column 72 of the title card is the card 
type indicator, 
YYYYY — in columns 8-12 of the clear storage card 
equals or is greater than the size of the Phase 
002 Data Division, but small enough to fit into 
core when the relocation factor is added. 

N — in column 71 of the clear storage card is the 
upward relocation indicator. 

Y — in column 72 of the clear storage card is the 
card type indicator. 
99999 - in columns 72-76 of the last card is the card 
type indicator and designation for a subpro- 
gram END card. 

Figure 26 will produce the equivalent of the Auto- 
coder "clear storage" relocatable object card routine 
above. 



EXEQ AUTOCODER.. 
TITLEAUTOCONAME 
ORG 00667 
OA IXYYVVV 
END 



Figure 26. Autocoder "Clear Storage" Routine 

MAIN and SATELLITE Routine 

Multiphase programming may be used to retain the 
Data and Procedure Divisions of the main cobol pro- 
gram in core storage and to call several satellite 
Procedure Divisions which will use the Data Division 
of the MAIN program. 

In Figure 27, the main cobol program calls in the 
SATELLITE program, satellite returns to the main pro- 
gram and the process is repeated. The run is then 
terminated in the main program's Procedure Division. 

The multiphase program must be compiled and Link 
loaded as a two-pass system. The first pass determines 
filler size for "Dummy" entries in the satellite 
program. 



STATUS IS RESET 
STATUS IS SET. 



MON«* DATE SEP64 
MONS* JOB COBOL MULTIPHASE 
MONSS ASGN MWl.Bl 
MON«« ASGN MW2.A2 
MONS* ASGN MW3.B3 
HONSS ASGN MG0iA6 
MON«S MODE GO. TEST 
MON«S EXEQ COBOL. . .NOPCH. LIST 
001010 IDENTIFICATION DIVISION. 

PROGRAM-ID. MAIN. MAINPGMA 

001030 ENVIRONMENT DIVISION. 
001040 CONFIGURATION SECTION. 
OOIOSO SOURCE-COMPUTER. IBM-14>0. 
001060 OBJECT-COMPUTER. IBM-1410. 
001070 SPECIAL-NAMES. MONITOR-SWITCH 
001080 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-0-CONTROL. 
001090 DATA DIVISION. 
001100 WORKING-STORAGE SECTION. 
001110 77 SWTCH PICTURE IS 9 VALUE IS 1. 

001120 77 PHASE-NUMBER PICTURE IS 999 VALUE IS 002. 
01 WORKRECORD. 

02 XXX PICTURE IS X ( 98 ) . 
02 YYY PICTURE IS X(2). 

88 zz VALUE IS 'ee". 

001140 PROCEDURE DIVISION. 

01150 BEGIN. GO TO FIRST-ENTRY SECOND-ENTRY DEPENDING ON SWTCH. 
DISPLAY • GIVE CORE DUMP PLEASE •. 
STOP "END OF JOB" . 
STOP RUN. 
001170 FIRST-ENTRY. DISPLAY • MAIN ENTERED. •. 

001180 OUT. ENTER COMMUNICATION-MODE CALL CHAIN USING PHASE-NUMBER. 
001190 IN. ENTER COBOL. 
002010 SECOND-ENTRY. DISPLAY • MAIN ENTERED AGAIN '. GO TO OUT. 

MONS$ EXEQ COBOL.. iNOPCH. LIST 
001010 IDENTIFICATION DIVISION. 

002040 PROGRAM-ID. SATELLITE. SATELLTA 

001030 ENVIRONMENT DIVISION. 
001040 CONFIGURATION SECTION. 
001050 SOURCE-COMPUTER. IBM-1410. 
001060 OBJECT-COMPUTER. IBM-1410. 

001070 SPECIAL-NAMES. MONITOR-SWITCH • • STATUS IS RESET 
001080 IS' STATUS IS SET. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
I-0-CONTROL. 
001090 DATA DIVISION. 
001100 WORKING-STORAGE SECTION. 
001110 77 SWTCH PICTURE IS 9 VALUE IS 1. 
001120 77 PHASE-NUMBER PICTURE IS 999 VALUE IS 002. 
001130 01 WORKRECORD PICTURE IS X(IOO). 
01 DUMMY 

02 MAIN-FILLER PICTURE X(40). 
88 COMMON-FILLER VALUE 'FILLER*. 
02 REST-OF-MAIN-PROC-DIV PICTURE X(419). 
002120 PROCEDURE DIVISION. 

BEGIN. DISPLAY • SATELLITE ENTERED • SWTCH. ADD 1 TO SWTCH. 
1. ENTER COMMUNICATION-MODE CALL MAINPGN003. 
ENTER COBOL. 

ASGN MJB.B3 
EXEO LINKLOAD 
PHASENAMEl 
CALLNCHAIN 
CALLNIBCBLADOVR 
CALLNIBCBLDSPLY 
CALLNIBCBLCMPAR 
CALLNIBCBLSUBSC 
CALLNIBCOBOL 
CALL MAINPGMOOl 
PHASE 

BASE125240 
CALL SATELLT002 
MON«S EXEQ NAMEl.MJB 
MON«« END 



Figure 27. MAIN and SATELLITE Routine 

One "Dummy" entry is needed to force the satellite 
program to load above the main program's Procedure 
Division. So that both programs may reside in core at 
the same time, satellite must contain a duplicate of 
the MAIN Data Division and a "Dummy" entry of filler 
(equal in size to the Procedure Division of main). 

A "Dummy" 88 entry is necessary to force the 
SATELLITE Procedure Division common to be loaded 
below the main program Procedure Division common, 
avoiding overlay. The user can determine the size of 
the COBOL common area by referring to the output list- 
ing, which appears on the spr as a result of the compi- 
lation of the program. The number of characters used 
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002150 2. 
MON*S 
MON«S 



is specified at the end of the main program before the 
memory map. 

To calculate the size of the main program's Pro- 
cedure Division, subtract the address of mainpgm002 
from the address of mainpgm004. 

In Figure 27, the size of "main-common" should be 
equal to the size of the main program's common area. 
The size of "rest-of-main-proc-div" should be equal 

to the size of the main program's Procedure Division 
minus the size of common minus one. The baseI of the 
satellite phases should be mainpgm004. 
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Appendix A: CC 


moL\ 


Vords 




DIVISION 


INPUT-OUTPUT 


The words listed below 


constitute the complete 
J preceded by an asterisk 


IBM 




INSTALLATION 


COBOL vocabulary. 


Wordj 


(*) 


♦electronic-switch 


INTO 


are not implemented by the 1410/7010 cobol compiler 


♦elimination 


I-O-CONTROL 


but should be avoided when assigning names to data, 
etc., to avoid unnecessary difficulty in converting 1410/ 


ELSE 
END 


♦iocs 

♦lOHSK 


7010 COBOL programs to other ibm svstems. 




ending 


I-O-SWITCH 










♦ending-file 


IS 


Programmers are cautioned that the words recog- 


ending-label 




nized by the 1410/7010 


COBOL compiler can be used 


ending-reel 


LABEL 


in a COBOL source 


^ program only as specified in 


this 


end-of-file 


LEADING 


publication, or in the General Information Manual 


. 


end-of-tape 


LEFT 










ENTER 


LESS 


ACCEPT 




CHARACTERS 




ENVIRONMENT 


♦library 


ADD 




*CHECKPOINT-UNIT 




EOF-SIU 


LOAD 


*ADDRESS 




CLASS 




EQUAL 


LOCATION 


♦addresses 




CLOSE 




ERROR 


LOCK 


AFTER 




COBOL 




EVEN 


♦long-length-record 


ALL 




*COLLATE-MACHINE- 




EVERY 


♦low 


ALPHABETIC 




SEQUENCE 




EXAMINE 


low-value 


ALPHANUMERIC 




COMMUNICATION- 




EXIT 


LOW-VALUES 


ALTER 




MODE 








ALTERNATE 




COMPUTATIONAL 




FD 


♦memory 


AN 




*COMPUTATIONAL-l 




FILE 


MODE 


AND 




*COMPUTATIONAL-2 




FILES 


monitor-date 


APPLY 




COMPUTE 




FILE-CONTROL 


MONITOR-SWITCH 


ARE 




CONFIGURATION 




FILE-IDENTIFICATION 


MOVE 


AREA 




CONSOLE-PRINTER 




FILLER 


♦multiple 


AREAS 




*CONSOLE-SWITCH 




FIRST 


MULTIPLY 


ASSIGN 




CONSTANT 




FOR 




AT 




*CONTAIN 




FROM 


NEGATIVE 


AUTHOR 




CONTAINS 






NEXT 


AUTHORS 




♦controls 




GIVING 


NO 






*COPY 




GO 


♦no-length-check 


*BCD 




CORRESPONDING 




GREATER 


♦none 


BEFORE 




*CREATION-DATE 






non-standard 


BEGINNING 




*CREATION-DAY 




♦header-label 


♦no-overlap 


BEGINNING-LABEL 




*CREATION~YEAR 




♦high 


♦no-print-storage 


*BEGINNING-REEL 








HIGH-VALUE 


♦no-release 


*BINARY 




DATA 




HIGH-VALUES 


not 


BLANK 




DATE-COMPILED 




♦hypertape-unit 


♦no-tape-mark 


BLOCK 




DATE-WRITTEN 




♦hypertape-units 


NOTE 


*BLOCKS 




DECLARATIVES 






numeric 


BY 




♦density 




IBM-1410 








DEPENDING 




IBM-7010 


OBJECT-COMPUTER 


CALL 




DIGIT 




identification 


♦object-program 


CARD-PUNCH 




DIGITS 




IF 


OCCURS 


CARD-READER 




DISPLAY 




IN 


ODD 


CHARACTER 




DIVIDE 




INPUT 


OF 
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OFF 


*SHORT-ALPHA-WORD 


OMITTED 


*SHORT-LENGTH-RECORD 


ON 


SIGNED 


OPEN 


SIZE 


OPEN-WITHOUT-REWIND 


SOURCE-COMPUTER 


*OPTIONAL-USAGE 


SPACE 


OR 


SPACES 


OTHERWISE 


SPECIAL-NAMES 


OUTPUT 


STANDARD 




STATUS 


PADDING 


STOP 


PARITY 


SUBTRACT 


PERFORM 


♦supervisor 


PICTURE 


SYNCHRONIZED 


PLACE 


*SYSTEM-INPUT-UNIT 


PLACES 


SYSTEM-OUTPUT- 


POINT 


PRINTER 


POSITIVE 


SYSTEM-OUTPUT-PUNCH 


*PREASSEMBLED 




PRINTER 


TALLY 


♦priority 


TALLYING 


PROCEDURE 


TAPE-UNIT 


PROCEED 


♦tape-units 


PROGRAM-ID 


THAN 


*PROGRAM-START 


THEN 




THROUGH 


QUOTE 


THRU 


QUOTES 


TIME 




TIMES 


READ 


TO 


RECORD 


♦trailer-label 


RECORDING 


♦typewriter 


*RECORD-MARK 


unequal 


RECORDS 


♦UNIT-RECORD-I-O- 


REDEFINES 


RECORD 


REEL 


UNTIL 


*REELS 


UPON 


*REEL-SEQUENCE- 


USAGE 


NUMBER 


USE 


♦reference 


USING 


REMARKS 




renaming 


VALUE 


replacing 


VARYING 


RERUN 




RESERVE 


W^HEN 


RETENTION-PERIOD 


WITH 


REW^IND 


♦WITH-LABELS 


RIGHT 


♦WITHOUT-LABELS 


ROUNDED 


♦words 


RUN 


WORKING-STORAGE 




WRITE 


SECTION 




SECURITY 


ZERO 


SELECT 


ZEROES 


SENTENCE 


ZEROS 



Appendix B: Organization of Source Program 

Some items which may appear in a source program are 
required, while others are optional. Whether an item 
is required or optional may be determined by reading 
the discussion of each individual cobol word in this 
publication. The order of appearance of the divisions 
is mandatory and all divisions must be present. Certain 
sections within the divisions must also appear as speci- 
fied, while others have no rigid rules. The items which 
may appear in a source program are the following: 



IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 
AUTHOR, author-name. 
INSTALLATION. ... 
DATE-WRITTEN. ... 
DATE-COMPILED. ... 
SECURITY. ... 
REMARKS. ... 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. . . . 
OBJECT-COMPUTER. ... 
SPECIAL-NAMES. ... 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. SELECT . . . 
I-O-CONTROL. APPLY . . . 

DATA DIVISION. 
FILE SECTION. 

FD file-name-l . . . 
01 data-name- 1 . . . 
02 data-name . . . 
03 data-name . . . 
88 condition-name . . 



02 data-name . . . 



01 data-name , . 



FD file-name-2 



FD file-name-n . . 



WORKING-STORAGE SECTION. 

77 data-name . . . 

88 condition-name . . . 



77 data-name 
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01 data-name . . . 
02 data-name . . . 



paragraph-name-2. . 



01 data-name . . . 
02 data-name . . . 
03 data-name . . . 
88 condition-name 



paragraph-name-n. 



section-name-2 SECTION. 



02 data-name 



section-name-n SECTION. 
paragraph-name- 1. . . . 



01 data-name . 



paragraph-name-2. . . 



CONSTANT SECTION. 

77 data-name . . . 



paragraph-name-n. 



77 data-name . . . 

01 data-name . . . 

02 data-name 



01 data-name . . . 
02 data-name . . . 
03 data-name 



02 data-name 



01 data-name . . 



PROCEDURE DIVISION, 
DECLARATIVES. 
section-name SECTION. USE 
paragraph-name. . . . 
END DECLARATIVES. 
paragraph-name. . . . 



section-name- 1 SECTION. 
paragraph-name-1 . . . . 



Appendix C: 

Object Time Error Analysis and Messages 

The following object time conditions will cause im- 
mediate job termination. The messages will appear on 
the Standard Print Unit and control will be trans- 
ferred to the Resident Monitor's Unusual End of Pro- 
gram. ( For details see the System Monitor publication. ) 

In the following messages, if the program being run 
was compiled in the trace mode, the name of the 
paragraph in which this error occurred appears as the 
last paragraph-name on the Standard Print Unit. 

If the program being run was not compiled in the 
TRACE mode, nnnnn is the relocated address of the 
statement in error. 

INVALID EXPONENTIATION nunnil 

An attempt to raise zero to the zero power has been 
detected. 

ZERO DIVISOR nnnnn 

An attempt to divide by zero has been detected. 

UNALTERED STATEMENT UnnUU 

A GO TO statement which required ALTERing was exe- 
cuted prior to being ALTERed. 
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Appendix D: Diagnostic Messages 

This appendix includes all the diagnostic messages 
produced by the 1410/7010 cobol compiler, and their 
meanings. The messages are listed by division, with a 
"general" section for messages which can occur in more 
than one division. 

Normally, when a diagnostic message appears on the 
source program listing, an incomplete object program 
will be produced. The compiler will continue to exam- 
ine the entire source program for further errors but 
terminates object program output. However, some 
messages are merely warnings to the programmer, and 
do not necessarily affect the compilation of the source 
program. A "W" preceding a message in this appendix 
indicates a warning-type message. Also indicated (for 
warning-type messages ) are any assumptions the com- 
piler may make about the intent of the statement in 
question. 

Source Program Listing 

The following information is included to assist the pro- 
grammer to better understand the source program 
listing: 

1. An "S" appearing to the left of a statement, or 
group of statements, indicates that the programmer- 
supplied sequence numbers are out of sequence. ( This 
is a warning and does not affect compilation. ) 

2. The four-digit number appearing on the extreme 
left of the source program Procedure Division listing is 
a card reference number assigned by the compiler. 

3. Source statements and diagnostic messages for the 
Identification, Environment, and Data Divisions ap- 
pear interspersed in the source program listing. 

4. Diagnostic messages for the Procedure Division 
appear in one section of the source program listing, 
with a card number to the left of the diagnostic mes- 
sage. The diagnostic message usually refers to the 
statement or procedure-name on the indicated card. 
However, because of the object code optimizers look- 
ahead subprogram, the message may refer to a state- 
ment or procedure-name on an earlier card. 

The lookahead subprogram scans the cobol source 
program twenty data-name or key-word elements 
ahead of the object code output routine. Therefore, 
under most circumstances, the diagnostic message will 
refer to the current card or one of the three preced- 
ing cards. 

5. A message will appear indicating the storage allo- 
cated to the main program. This allocation does not in- 
clude any optional subprograms called by the user or 
by the compiler. 

6. One of the following messages appears on the 
Standard Print Unit if compilation of the source pro- 
gram has been prevented: 



a. SHORT LENGTH WORK FILE (i/o Operation) 
Appears if one of the work files (mwI, mw2, or mw3) 
assigned for the cobol compiler is not of suflScient 
length. Compilation is terminated and control passes 
to the Resident Monitor's Special-End-of-Program 
routine. (See the publication. System Monitor, for 
details. ) 

b. ******object program incomplete****** 
Appears if there are errors in the source program 
which cannot be corrected by the cobol compiler. It 
is the terminating message of a cobol compilation in 
which a source error prevented the generation of a 
complete object program, unless diagnostic has been 
specified on the exeq card. ( See 7, below. ) If this is a 
compile-and-go operation, the Go file is cancelled. 

c. uncorrectable i/o error in (phase name) 
Appears if there is some uncorrectable input or out- 
put error. Compilation is terminated and control 
passes to the Resident Monitor's Special-End-of-Pro- 
gram routine. ( See the publication. System Monitor, 
for details. ) 

In conjunction with messages a, b, and c, the follow- 
ing messages appear on the console printer: 
10980 SHORT length work file ( i/o operation ) 

10990 OUTPUT INCOMPLETE— SOURCE ERROR 
10999 OUTPUT INCOMPLETE— l/o ERROR 

( phase name ) 

d. ******SOURCE program INCOMPLETE****** 

Appears if the four cobol Divisions are not found in 
the source program. Compilation is terminated and 
control passes to the Resident Monitor's Special-End- 
of-Program routine. (See the publication. System 
Monitor, for details.) If this is a compile-and-go 
operation, the Go file is cancelled. 

e. NUMBER OF ENTRIES WITHIN GROUP EXCEEDS TABLE 

SIZE IN (phase name) 
Appears if the table limit is exceeded. The cobol 
compiler requires a minimum of 28,500 positions of 
core storage, allowing for an 11,500-position Resi- 
dent Monitor on a system that has a 40,000 character 
core-storage unit. Within a single 01 record, up to 
100 data-name entries may usually be processed. 
However, in some cases the limit may be higher or 
lower depending upon the characteristics of the data 
names and the actual Monitor size. 
If this message appears while processing the Data 
Division, the user should either reduce the number of 
entries in the 01 record or reduce the size of the Moni- 
tor. Reducing the size of the Monitor will increase the 
table size. If this message appears while processing 
the Procedure Division, the user should reduce the 
number of entries within the FD. 

The above message should not appear for systems 
in which more core storage is available for the table. 
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7. The following message appears on the Standard 
Print Unit, and is the terminating message for a cobol 
"diagnostic" run. 

******END OF DIAGNOSTIC RUN****** 

General 

The messages appearing below can occur in more than 
one division. 

W DUPLICATE CLAUSE KEYWORD 

A clause keyword has appeared more than once in 
an entry. 

W INVALID CONTINUATION CARD 

Blank continuation card. It is ignored. 

W INVALID LITERAL SYNTAX 

Record mark or group mark found in a VALUE 
clause or a non-numeric hteral format error. 

W KEYWORD DIVISION MISSING 

Presence of the word DIVISION is assumed. 

W REFERENCE FORMAT ERROR 

One of the format rules has been broken but is 
ignored by the compiler. (See the General Infor- 
mation Manual.) 

W SYNTAX CHECK DISCONTINUED WITH "X" 

The syntactical form of the input statements does 
not conform to COBOL syntax. "X" is the word 
initiating the erroneous source data. 

W SYNTAX CHECK RESUMED WITH "X" 

A valid syntactical form is recognized after the 
occurrence of the above message. "X" is the word 
with which checking is resumed. 

Identificcition Division 

W INVALID IDENTIFICATION ASSIGN IDENTIFI- 
CATION "X" 

Columns 73-80 invalid. Value of "X" is assigned by 
the compiler. 

W SEARCH FOR IDENTIFICATION 

The keyword IDENTIFICATION has not been dis- 
covered in its proper position. 

W SEARCH FOR PROGRAM-ID 

The keyword PROGRAM-ID has not been dis- 
covered in its proper position. 

Environment Division 

W ASSIGN CLAUSE MISSING 
S elf -explanatory . 

W CONFIGURATION SECTION MISSING 
Self-explanatory. 

W CONFIGURATION SECTION OUT-OF-ORDER 

Self-explanatory. 

W DUAL OBJECT-COMPUTER SPECIFICATION 
IBM 1410 and IBM 7010 specified. 

W DUAL SOURCE-COMPUTER SPECIFICATION 
IBM 1410 and IBM 7010 specified. 

W FILE-CONTROL PARAGRAPH MISSING 
Self-explanatory. 

W INPUT-OUTPUT SECTION MISSING 
Self-explanatory. 

W INVALID APPLY CLAUSE SYNTAX 
The clavise is ignored. 



W INVALID APPLY LITERAL 

More than one padding character, or invalid pad- 
ding character. 

W INVALID ASSIGN CLAUSE SYNTAX 

The clause is ignored. 

W INVALID DEVICE-NAMES CLAUSE SYNTAX 
The clause is ignored. 

W INVALID LABEL RECORD SIZE 

Beginning-Label or Ending-Label record is greater 
than 120 characters. 

W INVALID RENAMING CLAUSE SYNTAX 
The clause is ignored. 

W INVALID RERUN CLAUSE SYNTAX 
The clause is ignored. 

W INVALID RESERVE CLAUSE SYNTAX 

The compiler assumes there are NO ALTERNATE 
AREAS. 

W INVALID SELECT SYNTAX 

SELECT not followed by ASSIGN, RESERVE, or 
RENAMING. 

W INVALID SPECIAL-NAMES PARAGRAPH SYNTAX 
The paragraph is ignored. 

W INVALID SWITCH-NAMES CLAUSE SYNTAX 

The clause is ignored. 

W KEYWORD SECTION MISSING 

Self-explanatory. 

W MISSING PERIOD 
Self-explanatory. 

W NO I-O-CONTROL PARAGRAPH 

Self-explanatory. 

W NO SECTION HEADING 

Self-explanatory. 

W OBJECT-COMPUTER PARAGRAPH MISSING 

Self-explanatory. 

W PARAGRAPH INVALID IN TPIIS SECTION 

Processing will take place as if SECTION were 
correct. 

W PARAGRAPH OR STATEMENT CONSTRUCTION 
ERROR 

Self-explanatory. 

W PARAGRAPH OUT-OF-ORDER 

S elf -explanatory . 

W SOURCE-COMPUTER PARAGRAPH MISSING 
Self-explanatory. 

W UNDEFINED RENAMING FILE-NAME 
File used in APPLY clause not defined. 

W UNDEFINED RENAMING, FILE-NAME 

File used in RENAMING clause not defined. 

W UNDEFINED RERUN FILE-NAME 

File used in RERUN clause not defined. 

Data Division 

W 77-LEVEL OUT-OF-ORDER 
Self-explanatory. 

W 88-LEVEL INVALID AT GROUP LEVEL 
Self-explanatory. 

W 88-LEVEL INVALID IN THIS SECTION 

An 88-level appears in the CONSTANT SECTION. 
This entry is ignored.' 

W CLAUSE MISSING IN THIS FD 

LABEL RECORDS clause is missing and is as- 
sumed to be omitted; or DATA RECORDS clause 
is missing and is ignored. 
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W FD ENTRY RECORD MISSING 

An FD entry has no associated Record Description 
items. File is ignored. 

W FD OUT-OF-ORDER 

FD has been detected in other than File Section. 
Compiler will handle this condition. 

W FILE SECTION OUT-OF-ORDER 

Will be processed as if in proper order. 

W INCOMPATIBLE BLOCK RECORD CLAUSE 

Combination of BLOCK CONTAINS and RECORD 
CONTAINS clause does not agree with one of the 
five allowable formats. 

W INCOMPATIBLE BLOCK RECORD SIZE 

The record size is too large. Record size will be 
used. 

W INCOMPATIBLE CLASS PICTURE CLAUSE 

Classes as specified by the CLASS and PICTURE 
clauses in a given item do not agree. CLASS clause 
is ignored. 

W INCOMPATIBLE LITERAL 

CLASS or PICTURE does not agree with VALUE 
literal. The compiler ignores this condition and allo- 
cates storage for the literal. 

W INCOMPATIBLE PICTURE POINT CLAUSE 

The assumed decimal point in the POINT clause 
does not agree with the PICTURE. POINT clause 
is ignored. 

W INCOMPATIBLE POINT CLASS CLAUSE 

The POINT clause is not associated with a numeric 
item. POINT clause is ignored. 

W INCOMPATIBLE RECORD SIZE 

The record size as derived from the Record De- 
scription does not agree with the size as stated in 
the RECORD CONTAINS clause. The computed 
record size will be used. 

W INCOMPATIBLE REDEFINES ENTRY 

If the rules outlined below are not applicable, the 
message may be ignored. 

1. The redefinition cannot exist at a 01 level number 
in the File Section. 

2. A data-name which is subscriptable cannot be 
redefined. 

3. The size associated with the redefinition is greater 
than the size of the original area. The size of the 
original is used. 

W INCOMPATIBLE SIGNED PICTURE CLASS 
CLAUSE 

The existence of a sign, specified by the SIGNED 
clause, does not agree with the PICTURE, which is 
non-numeric. The SIGNED clause is ignored. 

W INCOMPATIBLE SIZE CLAUSE AT GROUP LEVEL 
SIZE as specified at group level does not agree with 
the size as calculated from the contained elementary 
items. Group SIZE is made to conform. 

W INCOMPATIBLE SIZE PICTURE CLAUSE 

Size as specified in a SIZE clause does not agree 
with the size given by the PICTURE clause. SIZE 
clause is ignored. 

W INCOMPATIBLE WITH HIGHER LEVEL CLASS 

Class specified for this item does not agree with 
class specified for the group. Group CLASS is 
ignored. 

W INVALID 88-LEVEL 

88-level occurs without a preceding condition vari- 
able (valid level-number). It is ignored. 



W INVALID BLOCK CLAUSE SYNTAX 

The compiler will infer block size from record size. 

W INVALID CLASS SYNTAX 
CLASS clause is ignored. 

W INVALID DATA RECORD CLAUSE SYNTAX 
The clause is ignored. 

W INVALID DEPENDING ON ENTRY 

The DEPENDING ON data name within a given 
RECORD CONTAINS clause either does not occur 
in a subsequent file record, or does not have con- 
sistent specifications in a multi-record file. 

W INVALID EDITING CLAUSE SYNTAX 
Invalid BLANK WHEN ZERO clause. 

W INVALID LABEL RECORD CLAUSE SYNTAX 
Compiler assumes OMITTED. 

W INVALID LEVEL-NUMBER 

The level-number of the first item following an FD 
is not 01. This item is assumed to be a 01-level. 

W INVALID LEVEL-NUMBER SYNTAX 

Invalid level-number sequence. Will be treated as 
if valid; therefore, hierarchical relationships may be 
aff^ected. 

W INVALID LITERAL 

File Identification value is improper. If more than 
10 characters the value is truncated. 

W INVALID LITERAL IN THIS CONTINUATION 
CARD 

Continuation indicator, but first non-blank character, 
not the quote sign. Continuation ignored-literal is 
terminated by end of first card. 

W INVALID LITERAL SYNTAX 

Literal in VALUE clause is invahd. VALUE clause 
is ignored. 

W INVALID OCCURS CLAUSE 

OCCURS clause generates a fourth or higher dimen- 
sion array. The clause is ignored. 

W INVALID OCCURS CLAUSE SYNTAX 
The clause is ignored. 

W INVALID PERIOD 
Self-explanatory. 

W INVALID PICTURE SYNTAX 
The clause is ignored. 

W INVALID POINT CLAUSE SYNTAX 
The clause is ignored. 

W INVALID PUNCTUATION OR SPECIAL 
CHARACTER 

This is ignored. 

W INVALID RECORD SYNTAX 

Syntactical error in RECORD CONTAINS clause. 
The clause is ignored. 

W INVALID RECORDING MODE CLAUSE SYNTAX 
Compiler assumes Move mode and even parity. 

W INVALID REDEFINES CLAUSE SYNTAX 

The redefined data name is undefined or the entries 
redefining an area do not immediately follow the 
original definition of the area, or the redefined data- 
name level-number does not agree with the current- 
name level-number. 

W INVALID SIZE CLAUSE SYNTAX 
The clause is ignored. 

W INVALID SYNCHRONIZED CLAUSE SYNTAX 
The clause is ignored. 



44 



W INVALID U/R SPECIFICATION W 

Recording mode specified is invalid for unit record. 
Move mode and even parity is assumed. 

W INVALID USAGE CLAUSE SYNTAX W 

The clause is ignored. 

W INVALID VALUE CLAUSE 

VALUE and REDEFINES clauses are in same item. W 
VALUE and OCCURS clauses are in same item. 
VALUE in item subordinate to grouped REDE- 
FINES item. VALUE in item subordinate to grouped 
OCCURS item. VALUE within a File Section Rec- 
ord Description; or VALUE with report item. The 
VALUE is ignored. W 

W KEYWORD SECTION MISSING 

The word SECTION does not appear. The compiler 
assumes that it is present. \Y 

W LITERAL EXCEEDS MAXIMUM CHARACTER 

SIZE 120 W 

Literal will be truncated. 

W LITERAL TRUNCATION 

VALUE exceeds SIZEl. This message will also ap- \y 
pear whenever a VALUE is given to a field whose 
PICTURE includes PICTURE symbol "P" on the 
left. 

W NO CONTINUATION CARD INVALID LITERAL 

No terminal quote sign on current card, or no con- 
tinuation indicator on next one. Literal assumed 
terminated at end of first card. 

W NO ENTRY CLASS 

No CLASS or PICTURE for an elementary item. 
Low order character (s) of the literal will not fit in 
the field as specified. 

W NO LITERAL WITH 88-LEVEL 

88 is assigned a value of blanks. 

W NO SIZE IN THIS ENTRY 
Self-explanatory. 

NUMBER OF ENTRIES WITHIN GROUP EXCEEDS 
TABLE SIZE-BREAK UP GROUP USING 
REDEFINES OPTION 
Self-explanatory. 

W OCCURS CLAUSE INVALID IN THIS ENTRY 

OCCURS clause associated with a 01 or 77-level 
item. The clause is ignored. 

W PICTURE CLAUSE INVALID AT GROUP LEVEL 
PICTURE clause is describing a group item rather 
than an elementary item. The clause is ignored. 

W POINT CLAUSE INVALID AT GROUP LEVEL 

POINT clause is used to describe group rather than 
elementary item. The clause is ignored. 

W PUNCTUATION INVALID IN THIS ENTRY 

One of the punctuation rules has been broken. ( See 

the General Information Manual.) Punctuation is W 

ignored. 

W RECORD CLAUSE MISSING 

RECORD CONTAINS clause is missing. 

RECORD OUT-OF-ORDER 

A Record Description entry within the File Section 
has no associated FD. Item is processed as WORK- 
ING-STORAGE. 

W REDEFINES CLAUSE OUT-OF-ORDER 

REDEFINES clause is not the first clause in an W 
item. The clause is accepted. 



REDUNDANT 88-LEVEL CLAUSE 

A clause other than VALUE is associated with an 
88-level item. This is ignored. 

SIGNED CLAUSE INVALID AT GROUP LEVEL 
SIGNED clause is used to describe group item 
rather than elementary item. This is ignored. 

UNDEFINED DATA-RECORD 

01 Record not defined in DATA RECORD clause. 

UNDEFINED ENTRY 

Undefined name in REDEFINES clause or RECORD 
CONTAINS DEPENDING ON clause. 

UNDEFINED FILE 

FD entry has no associated SELECT clause, or 
invalid SELECT clause. 

VALUE CLAUSE INVALID AT GROUP LEVEL 
The clause is ignored. 

WORD EXCEEDS MAXIMUM CHARACTER 
SIZE 30 

The word is truncated. 

WORKING STORAGE SECTION OUT-OF-ORDER 
This is processed as if in proper order. 

Procedure Division 

W ARITHMETIC OPTIMIZATION POSSIBLE 
Refer to "Programming Techniques." 

(name) IS AN INVALID QUALIFIER IN (name) 
Invalid qualifier is identified by the paragraph in 
which it is used. 

(name) IS AN UNDEFINED NAME IN (name) 

Undefined procedure-name is identified by the 
paragraph in which it is used. 

(name) NOT A CONDITION-NAME 
Self-explanatory. 

(name) OVERSIZE PARAGRAPH 

Paragraph should be broken down into more than 
one paragraph. 



W 



W 



W 



CONDITIONAL CLASS CONTRADICTION 

Data items of unlike class are being compared, or a 
non-numeric data item is being tested for a sign, 
or a sign test on an unsigned numeric data item. 

CONDITIONAL OPTIMIZATION POSSIBLE 
Refer to "Programming Techniques." 

CORRESPONDING OPERATOR INVALID 

REPLACED WITH "X" OPERATOR 

In MOVE, ADD, or SUBTRACT CORRESPOND- 
ING, TO or FROM was missing. "X" will be either 
"TO" or "FROM." 

CORRESPONDING STATEMENT FORMAT ERROR 
Self-explanatory. 

CORRESPONDING VERB IGNORED 

CORRESPONDING used with other than MOVE, 
ADD, or SUBTRACT. 

EXAMINE OPERAND ERROR 

Attempt to EXAMINE a constant or a literal. 

GO TO STATEMENT MISSING DEPENDING 

Self-explanatory. 

INCORRECT CONDITIONAL EXPRESSION 

Self-explanatory. 

INCORRECT CONTINUATION 

Continuation card error. Text starts prior to column 
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12 of continuation card. Unnecessary continuation 

indicator detected. This condition is ignored. 
INCORRECT END DECLARATIVES 

The compiler will correct this error. 
INCORRECT LITERAL 

Invalid record mark or group mark. 

INCORRECT LITERAL CONTINUATION 

Non-numeric literal continuation error. 



INCORRECT PUNCTUATION 

Incorrect punctuation will be ignored. 

INPUT OPTIMIZATION POSSIBLE 

Refer to "Programming Techniques." ^ 

W INVALID ALTER STATEMENT 

Something other than a Paragraph/Section-name 
follows ALTER; TO PROCEED TO is not specified 
properly; Paragraph/Section-name does not follow 
TO PROCEED TO; invalid format for compound 
ALTER statements or more than one level of quali- 
fication has been given for Paragraph/Section- 
name. 

INVALID CALL STATEMENT 
Self-explanatory. 

INVALID CHARACTER 

1410/7010 special character meaningless to COBOL 
will be ignored. 

INVALID COMPUTE OPERAND 

Self-explanatory. 

INVALID COMPUTE OPERATOR 

Self-explanatory. 

INVALID CONDITIONAL OPERAND 

Data-name is used incorrectly. 

INVALID CONDITIONAL OPERATOR 

Self-explanatory. 

INVALID CORRESPONDING 

CORRESPONDING option is used incorrectly. 

INVALID DATA-NAME IN ACCEPT STATEMENT 
Self-explanatory. 

INVALID DECLARATIVES 

Section-name does not follow DECLARATIVES. 
The compiler will skip to the next procedure-name 
or END DECLARATIVES. 

INVALID DISPLAY DEVICE 
Self-explanatory. 

INVALID ENTER STATEMENT 

Previous ENTER statement missing or syntax error. W 

INVALID EXAMINE STATEMENT 
Self-explanatory. 

INVALID EXIT 

Keyword EXIT appeared in other than a one-word 
paragraph. 

INVALID OPERAND 

The cause of the message can be: invahd operands, 
invalid qualification, more than three levels of sub- 
scripting, data-name class omitted for procedure 
statements, or an invalid operand for an ADD verb 
referencing a group item. 

INVALID OPERAND AFTER GIVING CLAUSE 
Multiple receiving fields invalid. 

INVALID OPERAND USAGE IN CORRESPONDING 
Multiple receiving field specified in ADD or SUB- 
TRACT CORRESPONDING, or invalid data-name, 
such as literal or elementary item used, or a level 
77 used. 

INVALID PARENTHESIS 
Self-explanatory. 



INVALID PERFORM STATEMENT 

Self-explanatory. 

INVALID STATEMENT 

Missing ENTER COBOL. 

INVALID USE STATEMENT 
Self-explanatory. 

INVALID WORD AFTER OPEN VERB 
Self-explanatory. 

IS UNDEFINED 

Undefined name. The name will appear on the 
preceding line. 

LITERAL EXCEEDS 120 CHARACTERS 
Literal will be truncated. 

MISSING OPERANDS IN CORRESPONDING 

If LIST option is specified, this informative message 
appears and is followed by a list of the data-names 
that satisfy the requirements for a match in the 
CORRESPONDING option. 

MISSING AT END IN READ STATEMENT 
Self-explanatory. 

MISSING BY AFTER VARYING IN PERFORM 
STATEMENT 

Self-explanatory. 

MISSING DISPLAY OPERAND ONE 

Self-explanatory. 

MISSING ERROR AFTER SIZE 
Self-explanatory. 

MISSING FIRST MOVE OPERAND 

Self-explanatory. 

MISSING FROM AFTER VARYING IN PERFORM 
STATEMENT 

Self-explanatory. 

MISSING IF TO MATCH THIS NEXT SENTENCE 
CLAUSE 

Self-explanatory. 

MISSING LEFT PARENTHESIS IN CONDITIONAL 

Self-explanatory. 

MISSING LITERAL IN EXAMINE STATEMENT 
Self-explanatory. 

MISSING LITERAL TWO AFTER EXAMINE 

Self-explanatory. 

MISSING OPERAND ONE IN THIS STATEMENT 
Self-explanatory. 

MISSING PERIOD BEFORE P/S NAME 

Statement not properly terminated before new Para- 
graph/Section-name. 

MISSING PERIOD OR SECTION AFTER 

PROCEDURE-NAME 

Self-explanatory. 

MISSING PROCEDURE IN USE STATEMENT 

Self-explanatory. 

MISSING PROCEDURE-NAME AFTER GO TO 

Self-explanatory. 

MISSING PROCEDURE-NAME IN PERFORM 
STATEMENT 

Self-explanatory. 

MISSING RECEIVING OPERAND 

Self-explanatory. 

MISSING REPLACING OR BY IN EXAMINE 

STATEMENT 

Self-explanatory. 

MISSING REWIND AFTER NO 

Self-explanatory. 
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MISSING RIGHT PARENTHESIS IN CONDITIONAL 

Self-explanatory. 

MISSING RUN OR LITERAL AFTER STOP 
Self-explanatory. 

MISSING SECOND MOVE OPERAND 

Self-explanatory. 

MISSING SENTENCE AFTER NEXT 
Self-explanatory. 

MISSING STATEMENT 1 TO MATCH THIS 
OTHERWISE OR ELSE 

The word ELSE or OTHERWISE is used without 

an associated IF statement. 

MISSING TALLYING OR REPLACING IN 
EXAMINE STATEMENT 
Self-explanatory. 

MISSING TIMES IN PERFORM STATEMENT 
Self-explanatory. 

MISSING TO AFTER GO 
Self-explanatory. 

MISSING TO AFTER MOVE 

Either the TO after the MOVE verb was missing, or 

a subscript error appeared in the first operand after 

MOVE. 
MISSING UNTIL AFTER VARYING IN PERFORM 
STATEMENT 

Self-explanatory. 

MISSING VALID CONDITIONAL OPERAND 

Self-explanatory. 

MISSING VALID EXPONENTIATE OPERAND 
Self-explanatory. 

MISSING VALID FILE-NAME AFTER 
CLOSE VERB 

Self-explanatory. 

MISSING VALID FILE-NAME AFTER 
OPEN INPUT 

Self-explanatory. 

MISSING VALID FILE-NAME AFTER OPEN 
OUTPUT 

Self-explanatory. 

MISSING VALID FILE-NAME IN READ 
STATEMENT 

Self-explanatory. 

MISSING VALID GO TO DEPENDING OPERAND 
Data-name is missing or is not an integer. 

MISSING VALID OPERAND AFTER BY OR INTO 
Self-explanatory. 

MISSING VALID OPERAND AFTER EXAMINE 

Self-explanatory. 

MISSING VALID OPERAND AFTER GIVING 

Self-explanatory. 

MISSING VALID OPERAND AFTER VARYING 
IN PERFORM 

Self-explanatory. 

MISSING VALID READ AREA-NAME 
Self-explanatory. 



MISSING VALID WRITE AREA-NAME 
Self-explanatory. 

MISSING VALID WRITE RECORD 
Self-explanatory. 

W MOVE CLASS CONTRADICTION 

Self-explanatory. 
MOVE OPERAND ERROR 

The receiving field designated is a -literal, constant, 
etc. 

W MOVE OPTIMIZATION POSSIBLE 

Refer to "Programming Techniques." 

MOVE SUBSCRIPT FROM OPERAND 

More than two subscripted data-names have ap- 
peared in the USING option of the CALL verb. 

NO MATCH FOR CORRESPONDING 

No match found for MOVE (one item elementary) 
or Arithmetic (both items elementary numeric). 
Improper qualifications exist for matching data 
items. Matching data items are in secondary rede- 
fined area, or qualified by same. 

W OUTPUT OPTIMIZATION POSSIBLE^^ 
Refer to "Programming Techniques." 

PARAGRAPH/SECTION INCOMPLETE IN (name) 
This message occurs if a source error has prevented 
processing of part of a statement or paragraph; or 
a statement implies the existence of a clause or 
statement that is not present. 

W POSSIBLE TRUNCATION 

Sending or FROM data-name larger than receiving 
data-name, or storing of arithmetic results where 
digits might be lost. (This message may occur 
where the ROUNDING option is used, and should 
be ignored. ) 

P/S NAME FORMAT ERROR 

Procedure-name not followed by SECTION or 
period. 

QUALIFIED NAME EXCEEDS STORAGE 
ALLOCATION 

Total number of characters has exceeded 300. 

S$$ IS AN UNDEFINED NAME 

The DECLARATIVE SECTION is used and the 
END DECLARATIVES card is missing, or the key 
words misspelled. S$$ is assigned as the name for 
the card and is detected as an undefined name. 

SUBSCRIPT ERROR 

Subscripting used with a data-name not associated 
with an OCCURS clause, or the number of sub- 
scripts used does not agree with the associated data 
description. 

USE VERB MISSING 

In DECLARATIVES, first word after section-name 
SECTION must be USE. Compiler will skip to the 
next procedure-name or END DECLARATIVES. 

W WORD EXCEEDS 30 CHARACTERS 
Word is truncated. 
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SAMPLE PROBLEM l4/o/'70lo COBOL. 



PROGRAMMER 



^- 



/V/o 



^lffl/l/?lO|l.,L,J. 



OiliO l 



o,5iO ! 



RiB.riEi iRiEiDiEiFilitJigiSi ,H,0,il,R,L,V,-,R,R,T,ei-,T,R,B,L,E,., 



Oi2i iK|i^iLiyi-ii?,f?irif, iPiiiCiriMi/jiEi .riS, i?,/,?,?, ,o,c it:it/iSiSi ,7, ,T,T,/i,e,s. 



I I I I 



I I I I I I I 



X,E,HT, S,E,C,T,/,oM, 







7,7, i(?iM,Ki iPiI,CiT,U,F!,E, ,IrS, J,., 



m, iFir^RiSiT,-iS,MJiFir, ,P,r,c,ri6<,/?,£, ^,S, ,\/.9,9, ,V,R,l,li£. J,S, 



/jOl 



D,4.,0 



OJiO 



0,g,0 



Oi^iO 



'lOiO 



/iJ.O 

)iaiO 



I ,3,0: 



Ao 



LS^ 



LM 



Li? 



LlQL 



Llo 



Zo,o 



;2.,/,o 



^Aoi 



i7i7, ,5,E,ca,Nfir,s,h,i,F,r, ,Pj-,CiT,u/?,c, j.s, ,\r,?,9, ,V.ff.L,u,E, ,js, 



7i7i ,7;a'j,/?,J),-,S,^,i,p,t, ,ffj,c,riM,<?,C, .g, ,\/,9,q, ,V.R,l,U,e, JS, 



7,7, ,Z,E,R4),-,P,R,E,f^, ,P,I,C,T,u,/?,E, J,5, ,'?,'?,?, /,9,'?, ,V^,fi!L«,e, J5, 



.a. 



OiQO, 



5iO 



Hie,RiJiiiAj,6i-,<?|g|c:,OiR,D,., 







0,a iFi/,t,i,E|.?, ,S,|,Z,£, ,j;5, ,g.. 



-J— J I I I I I I 



Oig, iA>i>ViO, iP,T,Cir,L(,R,El, iI,S, ,/7i^t.,), ,V,ff,L,^,C, ,I,S, ,\rf,fl,M, 



0,2, ,F,|,L,L,E,I?, |S,I|Z,E, ,J;S, ,5, 



\0,Z, ,NH iP,I,C,T,Lt,R,E, X.S, r(A.): ,V,H,L,UEi ,r,Si .M^.R.M.E, 



0,2, f.\.L.L£.fi, ,S,I,Z,E. ,1.5 ,1,4... 



0,a, J>,P,T, ,PI,C,T,U,ll?,E, .r,S, .R.f,*/,), ,l^,fl,L,Of, J,S, ." XE,P,T, 



0,2, ,F,l,t-.L,E,R, ,S,;,z,E JS, ,5,. 



I I I 
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I I I I I I I ' I 
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Progrom 


SAMPLE PROGRAM 1410/7010 COBOL 


Graphic 
















Cord Form# * 


73] [80 


PfOQram 


m«r loate 


Punch 



















00i> 



000 



01 



020 



030 



040 



050 



060 



070 



080 



090 



091 



100 



110 



120 



130 



140 



150 



160 



170 



180 



190 



200 
210 
?20 



i0 2 F!1LLe:R 5IIZE 1|S 4. 



',02 P.REM ^PICTURE :I S A|(7) 



\02 Fjl LLEiR SI'ZE liS 



2 TOTL PICTURE !! S A 



PROC'EDURE DIVISION. I 



(5) 



VALU 



VALU 



DECLIARATJ VES 



unre;adable section, use after st 



E IS 'PR,EMIUiM' 



E IS 



ANDA 



TOiTAL'i- 



RD E:RROR 



'LIST FILE. 



PR.OICEDUR.E ON 



DISPILAV- ERROR. DISPLAY Dil S P LiA Y- RIE CO RD 1 



END IDECLARATIVES;. 



intr;oducti ON. mote that 



THIS PROGRAM HAS BEEN DESIGNED 



',T0 DEMONSTRATE TYPICAL COBOL; FORMAT. NO ATTEMPT HAS BEEN 



Made to create a pro;GRAM: for^ actual customer application. 



STARp". 0:PEN OUTPiUT O j UT PU|T- P A-V - F I L E 



NEXT;-EMP;L0VE;E. A!CCEP|T IN ' PUT-IRECORD if LAST-CARD GO TO RWND, 

IMOVEJ CORjRESPJONDIING E)v1PL0;Y E E - CODE' IN INPUT-RECORD TO EMPLOYEE 



[CODE! IN !DISP;lAV-KECORD. move: CODE IN TO CODEOUT. MULTIPLY 



jHOUR i S -WORKED ! I Kl I NPU ; T- REiCORDi BY .HRLY- RATE (LABOR-GRADE IN 
;C0DETN) iGIVrNG GROSS;. MOVE GROSSi TO GROSS-PAY. 
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1M1<^ 



OiOJL 



PROGRAMMER 



yiWN,R,q,L,L,'i' 



lx,F, ,H|0,9ift!E,Mix,Ui»^ ,soi rrioi iMf^i-P fig: V>rfirriNi i&,Ui^fe ^A iTo, iP, fig|w,i,_,i iPiREiywia. 



i piReiiMiSi,! PieiP fertaiiNigi iSWi iSiHP^iriTi j^n, iCP|-p,Ei3:,Nu , iSiT|OiT^ i\ xniVi«V i1-iX,-&j i Vifti&y NiXivxM 



aiZior 



:\c,o,s^ g,'i.i , 



.J__L_J_._LJ__L_ 



laioj 







_J_. 1 . J_X_1 L .- 



OM lO ; 



| N,Oi-,p^,Eiv>-RrriH.i WiOiM.E, g,i £,P?iOi-iPif?ig,r >< iT A iP,R,Eiiivs,a,Ui>^-,PiW,>| ',.i . m.OiViE, fi,R,o,SiS, ,t,o, ,r,<a,T,qL,- P 



Oi S,Q , - 



Ift.Mi GO, ,TiOi ,OHrriP,U,Ti-iftOiUiTJ i>li&., I 



L_I L__L__LJ___J_-1 _ 



a^jO! 



P,RE,>><:i,., COimPiUiTiB iSiHa.F,- ri-.T^iRg,»V iT?AiULHSLE.JP[,_i=i iSJ?.piS,,Si_j1fc._jri'lSLSiTa-,^H,I,FiTi,j_i&A iTiQ 



Oi-rio 



,tpT,ft,L,-,W,T,N,. i 



_1 I I L.J l.J-i- 



-J I LJ I I 



o&a 



oSA 



lAiO 



LiLA 



i_ao 



J I ifilOr T|0| iTATlf^tr iRiTlWi i I I I I I 1 I I I I I I L, I 1 1 ..l..x.L.J__l_LJ.i_l.J J.I.J J. c l.i..l 1 J I I 1.1 I I 1 



P,Rt =»vi:a., ,cp,tM,p,u,T,E 5-,H,J,FiT-P,R&W ,ffA,Ui MiD,Eia l-i fiiMSjSi_iKL.jTI»a8arjS,Hii,Frri.,.._L_ 



J_J J I I I I I I I 



\Z0. 



I.M.o| 

( iSiOJ 



^ , IsROiSiSi iSjiVii,M,& ,r qiT,»<,i-,., ^^iV,E, iTOiTfiL, .rpi LTP_j'Lau,-,?»,(\'ii...i , i i , , , , , i.i.,. , 



lifciO 



LliQ 



V.&Al 



jM- 



a^iOi. 



a'H 



I I L 



;s,Q TfO, NgiXrr.-iEmp^AWiEEi., 



I I I 



_l_J._ 



I I I I L..J L. 



BU>HI>., ,C,LP,S,£, AUT,PU,T,-,RW,V,-iF,J,L^ ,0 ,P,EN, .IM.P.U.T ,L|i,S,T,-,1='i3:t.,E.i , , , , li. j.._L.a_ .l.,._l^.. 
. , , :V.O,Tg P.R.lUT ,<3UiT, lA F, iRE,C,Oft3>i giRE^ftrt igP ^N, .TiBPE. l i_ i..j .l.j_.i .i...l.. 

i_J.-L_l .1 . I....1 I I _!,. 1 J.„±.. 



j:>Jg,P,L,flV, ,HfeRI>J.N ,6-, gECO,ffJ> ,V,P, o,N, ,P,R, J,MTgiRl , 



P,B, 3M^r,R,ECP,WD., ,R&fl iT> ,i,:i.S,T,-,F:iiL&, ,m, ..J&N,A jS^j_jT|CJj, ,ClL,OA^-JlT,N^_.,_ 



:t>,xs,piL,ft,v,-,Ff,ecof<i3>i ,u,P,Q,Mi P,ft3,NXEP,l, ,& i O, TPi ,?>if tJ,»ir r,-,Re,c.o,ftt)., 



a2,aj c,L,05k :,-,RT-N,., g.L,o3,e, .ij.srr ,- ,y;i i,& M3,TiH. iLjO,c,ii;,i .taSiR^f^H i-'j.gNtIi..iOJ^. i£x.eaiLT,i;c»iN, 



7i3io | 



JSiTiQiPLjSiUiMui 



J I 1_J__J L . 



1 I .1 .i L .L-L 
I I I I I I I 
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ALTER Verb 23 
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APPLY Options 10 
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Checkpoints 10 

CLASS Clause 15, 28, 30 

Class Conditions 30 

CLOSE Verb 19 

COBOL Words, Listing 39 
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EXAMINE Verb 21, 30 

EXEQ Card Operand Options 31 

EXIT Verb 25 
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INPUT-OUTPUT 8 
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